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Preface 


This document is one of three prepared under NASA (Langley Research Center) 
grant number NAG1- 1-1327. Collectively these documents form the technical report covering 
the research activites for the period of time from July 1, 1994 to December 31, 1994. The three 
documents consist of the following: 

1 . Integrating O&S Models During Conceptual Design - Part I 


Summarizes the overall study, objectives, and results. Discusses in detail enhancements 
made to the models developed under this grant. 


2. Integrating O&S Models During Conceptual Design - Part II 
Reliability and Maintainability Model (RAM), User and Maintenance Manual 


Provides detailed documentation on the RAM model, its execution, and procedures for 
conducting a study using the model. A complete source listing is provided. 

3. Integrating O&S Models During Conceptual Design - Part III 
Simulation of Maintenance and Logistics Support of Proposed Space Systems 
Using SLAM II. 

Documents the SLAM maintenance simulation model which provides for more accurate 
determination of maintenance manpower requirements. A complete example of its use is provided. 
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INTEGRATING O&S MODELS DURING CONCEPTUAL DESIGN - Part I 


1. INTRODUCTION 

The University of Dayton is pleased to submit this report to the National Aeronautics and 
Space Administration (NASA), Langley Research Center, which integrates a set of models for 
determining operational capabilities and support requirements during the conceptual design of 
proposed space systems. This research provides for the integration of the reliability and 
maintainability (R&M) model, both new and existing simulation models, and existing operations 
and support (O&S) costing equations in arriving at a complete analysis methodology. Details 
concerning the R&M model and the O&S costing model may be found in previous reports 
accomplished under this grant (NASA Research Grant NAG-1-1327). In the process of 
developing this comprehensive analysis approach, significant enhancements were made to the 
R&M model, updates to the O&S costing model were accomplished, and a new simulation model 
developed. 


1 . 1 Background 

To date, several models and various procedures have been developed to address different 
aspects of the conceptual design process. Collectively, these efforts have provided an analytical 
capability for predicting operational capabilities and supportability of proposed vehicles. These 
models include the Reliability and Maintainability (R&M) model developed during the first two 
years of this grant, a discrete event computer simulation model developed by NASA (LRC), the 
logistics cost model developed by Rockwell, the shuttle R&M data study completed by Martin 
Marietta, and various O&S cost estimating relationships identified and developed as part of the 
most recent research effort. Much of these efforts are based upon comparability analysis with 
aircraft systems along with comparisons with corresponding space shuttle reliability and 
maintainability parameters, turn-around times, operational procedures, and operations and support 
costs. Although designed to answer different questions, these models and procedures must be 
consistent with one another as part of a study effort. For example, the R&M model input/output 
can be used by the O&S costing methodology to establish many of the "cost drivers." In 
addition, the R&M model can provide many of the input parameters needed by the simulation 
model. In fact, the R&M model was originally conceived to provide failure times and repair 
times for use in computer simulation models. However, the scope of the R&M model has 
increased significantly beyond this one objective. It also provides estimates for vehicle turn 
times, manpower requirements, and initial spares requirements using derived or specified R&M 
parameters and crew size information. NASA has identified both a cost element structure (CES) 
and a vehicle work breakdown structure (WBS) which provides a common framework for the 
development of R&M parameters and life cycle costing and are used consistently among these 
models. The next logical step in this evolutionary development of quantitative tools and 
techniques is to integrate these models within this common framework. Once this has been 
accomplished, then a complete and cohesive set of procedures for performing analyses can be 
developed. This will insure all models and procedures will be based upon common vehicle 
processes, WBS’s, CES’s, and design and performance factors. 
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1.2 Research Objectives 
The major objectives of this research are: 

a. to integrate existing operations and support models, 

b. to develop a set of procedures for determining operation capabilities and support 
requirements of proposed space vehicles, 

c. to continue to establish a methodology which will relate operational characteristics of 
a new vehicle design to engineering design parameters and subsystem characteristics, 

d. and to update and enhance current models as necessary in accomplishing the first three 
objectives. 

1.3 References 

Other reports completed as part of this research grant include: 

1.3.1 "The Detenination of Operational and Support Requirements and Costs During the 
Conceptual Design of Space Systeis." Final Report, June 18, 1992. 

Describes the data sources, methodology, analysis, and results of the initial parametrically 
generated reliability and maintainability lodel. 

1.3. 2 "Enhanced Methods for Determining Operational Capabilities and Support Costs for 
Proposed Space Systeis." Final Report. June 1993. 

Describes the integration of shuttle data, the development of the NASA WBS into 33 subsystems, 
numerous enhancements to the model, the (optional) addition of an external tank and liquid booster rocket, a 
redesign of the user interface, and compiled version of the lodel. 

1.3.3 "Operations 4 Support Cost Modeling of Conceptual Space Vehicles." Annual Report. 
June 1993 - July 1994. 

Presents an initial costing model to address operations and support costs. Integrates several 
different aircraft life cycle cost equations with shuttle derived values and direct user input based in part 
upon the following: 

1 . 3 . 3 . 1 Forbis and Woodhead, Conceptual Design and Analysis of Hypervelocity Aerospace 
Vehicles: Vol 3. Cost, WL-TR-91-6003, Volume 3, BOEING Military Airplanes, Jul 1991. 

1.3. 3. 2 Isaacs, R., N. Hontanaro, F. Oliver, Modular Life Cycle Cost Model (HLCCM) 
for Advanced Aircraft Systems-Phase III, Vol VI, Grumman Aerospace, Jun 1985. 

1.3. 3. 3 Kamrath, Knight, Quinn, Stamps, PREVAIL: Algorithms for Conceptual Design of 
Space Transportation Systems, Feb 1987. 

1.3. 3. 4 Logistics Cost Analysis Model, Advanced Manned Launch System (AHLS) Task 
Assignment 5, Rockwell International, Space Systems Division, September 10, 1993. 

1.3. 3. 5 Marks, Massey, Bradley, and Lu, A New Approach to Modeling the Cost of 
Ownership for Aircraft Systems, RAND, Aug 1981. 

1.3.4 "Integrating 0&S Models During Conceptual Design - Part II, Reliability and 
Maintainability Model (RAM), User and Maintenance Manual." December 31, 1994 .-— 

Provides detailed user documentation of the RAM model as well as source listings, a complete 
glossary, flow charts, menu hierarchy, and step by step procedures for using the. model .„ 

1.3.5 "Integrating 0&S Models During Conceptual Design - Part III, Simulation of Maintenance 
and Logistics Support of Proposed Spaces Systems Using SLAM II." December 31, 1994. 

Documents the SLAM maintenance model including a complete example. 
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2. MODEL INTEGRATION 


2.1 Specific Models 

The following models have been included as part of an integrated conceptual design study: 

Reliability & Maintainability Model - computes vehicle and subsystem 
reliabilities, maintenance manhours, maintenance manpower, spares, and tumtimes based upon 
vehicle design and performance parameters and/or direct input of R&M parameters. 

LRC Simulation Model - estimates transportation system performance over the 
life cycle of the vehicle to meet mission and delivery requirements. Input consists of system 
quantities (orbiters, payload canisters, crews, processing bays, etc.), vehicle reliabilities, mission 
schedule, and vehicle delivery schedule while the output of the simulation run reflects the percent 
of missions completed. 

Maintenance Simulation Model - determines a more accurate manpower and 
vehicle turntime estimate using failure rates and repair times from the R&M model and vehicle 
processing times from the LRC simulation model. This model may also be used to size the fleet. 
This simulation provides a more detailed look at the scheduled and unscheduled maintenance 
activities allowing some tasks to be completed in parallel while others must be accomplished in 
series. Section 3 describes this model in detail. 

Operations & Support Cost Model - provides a means of establishing operations 
and support costs using a combination of cost estimating relationships (CERs) obtained from 
aircraft life cycle cost (LCQ models, the Rockwell logistics cost study, the manpower and spares 
requirements computed from the R&M and simulation models, and direct input of costs and costs 
factors. 

Figure 1 illustrates the primary relationships among these models. 



Figure 1 Model Integration 
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The R&M model would be utilized first in order to obtain failure rates, repair times, vehicle - 
reliability and tumtimes, which are then used in the simulation models. The two simulation 
models should be run somewhat in parallel since they need to be consistent particularly with 
regard to the number of vehicles in the system, the maintenance and processing tumtimes, and 
other system characteristics. The output of one model may be used as input to the other in order 
to obtain consistent results. All three models may provide input to the operations and support 
costing model which would be utilized as the final step in the analysis process. 


2.2 Input/Output Relationships 


The following summarizes the general categories of model input and output data, and the 
relationship of these data among the models. In several cases, output from either the simulation 
model or the RAM model may provide input to the O&S costing model. It is possible, 
therefore, to bypass the maintenance simulation model. However, the simulation will provide 
a more accurate estimate of manpower requirements and vehicle tumtimes. With the added use 
of the LRC simulation model, a more complete analysis of operational capabilities and support 
requirements will be obtained. 

2.2.1 RAM Model 


INPOTS 


OUTPUTS 


USED AS INPUT TO: 


vehicle weight 
subsystem weights 
length & wing span 
number of engines 
secondary variables 


vehicle reliability 
subsystei reliability 
HTBH's and MTTR's 
vehicle turntiies 
manpower 

spares requirement 
maintenance manhours 
removal rates 


simulation models 

maintenance sim model 
O&S costing model 
O&S costing model 
O&S costing model 

O&S costing nodel/naintenance sim 


2.2.2 Maintenance Simulation Model 


INPUTS 


OUTPUTS 


vehicle reliability 
mission rate & time 
failure rates (KTBH) 
removal rates 
repair times (MTTR) 
scheduled maintenance 


maintenance delay times 
vehicle turntime 
maintenance tine/nsn 
number of maintenance crews 
crew utilization rate 
times 


USED AS INPUT TO: 

O&S costing model 
O&S costing model 
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2.2.3 O&S costing model 
IKPOTS OUTPUTS 


maintenance manpower 
primary & secondary var's 
spares requirements 
cost factors and rates 
consumable rates 
miscellaneous factors 
design/performance variables 
vehicle turntime 
removal rates 


maintenance costs 
facilities costs 
initial spares costs 
logistics costs 
consumable costs 
system support costs 
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3. Model Enhancements 


In meeting the desired research objectives, numerous enhancements have been made to 
both the RAM model and the O&S costing model from the versions reported earlier (see 
paragraph 1.3). 

3.1 RAM Enhancements 

3.1.1 Reliability Specification 

In order to accommodate certain study objectives, the capability to specify 
a subsystem reliability was added. This required a new input screen and a new computational 
module. The input screen allows the user to specify a subsystem nonredundant reliability for any 
of the 33 possible subsystems. The default is for the model to compute the subsystem reliability 
based upon the computed or user specified MTBM and the subsystem operating hours. When this 
option is selected, the computational module numerically solves for the critical MTBM which 
corresponds to the desired reliability. From the critical MTBM, a mission MTBM is found 
which is then used in the redundant reliability, maintenance manhour, manpower, spares, and 
turntime calculations. The following equation is solved numerically for X: 

+ l I ~( | ( 1 ) 

R(X) = e \°l \«l - r = 0 


where r = specified reliability, 

X = critical failure rate, 
k — launch factor, 
a = Weibull scale parameter, 
b = Weibull shape parameter, 
t, = pad operating time, 
t 2 = launch (booster) time, 
t 3 = orbit operating time, 
t, = reentry time, and 
t^ = mission completion time. 


The Newton-Raphson method is used to find the solution to equation (1). This requires solving 
iteratively equation (2). 


Ki = 


mi 

R'(X) 


( 2 ) 


where R’(Jl) is the first derivative of R(A). The iterative process is terminated when the 
difference in consecutive values of R(A) is less than .000001. From the value of lambda, then 
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critical MTBM = — 
k 


( 3 ) 


and 


mission MTBM = critical MTBM x critical failure rate 


(4) 


3.1.2 Improved Redundancy Calculations 

Previous versions of the model used complete subsystem (active) 
redundancy only for computing reliabilities. The computed or specified MTBM is now 
considered to be a single subsystem MTBM. Therefore, when (active) redundant subsystems are 
specified, the total number of maintenance actions (MA) generated by mission is given by 
equation (5). 


MA 


NR x oper hrs 
MTBM 


(5) 


where NR = number of active redundant units of the subsystem. 


3.1.3 Ground versus Mission MTBM 


Because shuttle MTBM’s were based upon ground processing times (which 
may be quite extensive) as well as mission times, changes to ground processing times during a 
conceptual study may bias the number of maintenance actions generated since the MTBM no 
longer reflects the maintenance concept. Therefore, in order to account for differences in 
MTBM during mission versus ground processing, inherent maintenance actions (MA) and non- 
inherent MA’s (externally induced and no problem found) were identified within the aircraft data 
base. Inherent MA’s are assumed to occur during mission time (including prelaunch pad time) 
while non-inherent MA’s occur only during ground processing. From this data, a fraction 
inherent MA was computed by subsystem. These fractions may be found in Appendix A. Using 
the derived fraction inherent MA’s, p, an inherent and non-inherent MTBM is computed by 
equation (6). 


M, 


MTBM 
- P 


M_ 


MTBM 
1 -P 


( 6 ) 


where MTBM is the overall MTBM computed parametrically or shuttle-based, and M, is 
the inherent MTBM and M N is the non-inherent MTBM. Total maintenance actions per mission 
is then computed using equation (7). 
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MA = NR x 


( 7 ) 


' grnd proc hrs mission hrs 

M. + M, 

« 1 / 

For determining reliabilities, a critical MTBM is computed using only the mission MTBM as 
shown in equation (4). That is, 

M. (8) 

crit MTBM = - 

crit failure rate 

When specifying a reliability [see paragraph 3.1.1], it is the critical and mission MTBM or M, 
which is computed. The ground process MTBM, M„, is based upon the relationships in equation 
(6). That is, 





( 9 ) 


3.1.4 Air versus Air + Ground Aborts 

The option to base the critical failure rate on air aborts only has been 
added. A new (toggle) variable has been added to the system parameter menu to identify 
whether air or air + ground aborts is to be used. If air aborts is selected, the air + ground 
abort rates computed parametrically are adjusted based upon fixed percentages calculated from 
the aircraft data base. These percentages are displayed by work unit code (WUC) in Appendix 
B. The critical failure rate display /update screen will reflect which mode is in use. Any user 
updates to these values as well as the default on the system parameter menu should correspond 
to the mode in use. These abort or critical failure rates are used only in computing reliabilities. 

3.1.5 Reliability Growth — - - • • 

It is now possible to allow for continued reliability growth following the 
initial mission. The Duane growth curve is used in the form shown in equation (10). 


MTBM growth = MTBM *br-\) b ( 10 ) 

where b is the growth parameter specified by the user (default is .5). Equation (10) is derived 
from combining equations (11) and (12) where equation (11) is the Duane reliability growth 
curve. 


8 



( 11 ) 


MTBM 


(l-b)kT* 


where k is a constant to he determined and T, is a point in time (e.g. the first mission). 
Solving for k: 


k = 


T b 
A \ 


( \~b)MTBM 
With k determined, then at some future time T 2 , 


1 


MTBM 


(1 ~b) 


growth 


Equation (13) may then be written as 


If 


(l-b)MTBM ) 


MTBM. 


(TA b 


growth 




x MTBM 


( 12 ) 


(13) 


( 14 ) 


Therefore, if MTBM is the mean at the time of the first mission, T,, and T 2 is a future mission 
number, then equation (10) results. A primary assumption in using the Duane growth curve is 
that the failure rate is constant and that reliability improvement is continuously observed through 
the T 2 mission. 

3.1.6 Output to a File 

In order to redirect the output over a network (serial printer) or to import 
the output into a report, the option now exists to save all the input and output formatted data to 
an ASCII file. This file may then be read by most word processors. A new module, 
RAMW.BAS, was created for this purpose. 

3.1.7 Modularization 

With the increased complexity of the model, it became necessary to further 
modularize the coding of the model. This has resulted in a highly structured computer program 
where each module is executed as a result of "calls" made by the main module or submodules. 
The modularized structure is presented and discussed in Chapter 3 of the User and Maintenance 
Manual [see para 1.3.4]. 
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3.1.8 Simulation Model Input 

To support the maintena nce sim ulation model a computational module, 
SIM, an output module, SIMREP, and a screen display, AGRT, have been developed. The 
computational module rolls up certain R&M parameters from the NASA 33 work unit codes 
(WBS) to the seven aggregate assemblies shown in Table 1. 


Table 1 

Aggregate Subsystems 


Aggregate 



System 

Subsystem 

WES 

Structures 

Wing Group 

1.00 


Tail Group 

2.00 


Body Group 

3.00 

Power Systems 

APD 

9.10 


Battery 

9.20 


Fuel Cell 

9.30 


Electrical 

10.00 

Tanks 

LOX 

3.10 


LH2 

3.20 

Propulsion 

Main Engines 

6.00 


RCS 

7.00 


OMS „ . 

8.00 

Avionics 

GN4C 

13.10 


Health Honitoring 

13.20 


Communication & Tracking 13.30 


Displays & Controls 

13.40 


Instruments 

13.50 


Data Processing 

13.60 

Thermal Protection 

Tiles 

4.10 


TCS 

4.20 


PVD 

4.30 

Mechanical Systems 

Landing Gear 

5.00 


Hydraulics 

11.00 


Aero Surfaces/actuators 

12.00 

Life Support 

Environmental Control 

14.10 


Life Support 

14.20 


Personnel Provisions 

15.00 


Rec & Aux - Parachutes 

16.10 


Rec 4 Aux - Escape Sys 

16.20 

Auxiliary Systems 

Rec 4 Aux - Separation 

16.30 


Rec 4 Aux - Cross-feed 

16.40 


Rec 4 Aux - Docking Sys 

16.50 


Rec 4 Aux - Manipulator 

16.60 
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The R&M parameters which are rolled up to this aggregate levels include: number of 

maintenance actions, on and off-vehicle MTTR, on and off-vehicle scheduled maintenance time, 
removal rate, and average crew size. Total maintenance actions is computed using equation (7) 
for each subsystem and summing all maintenance actions within each aggregation. On and off- 
vehicle task times (MTTR) are a weighed average of the subsystem MTTR’s where the weights 
are the fraction of subsystem maintenance actions within the aggregated system. Scheduled on 
and off-vehicle maintenance is found by prorating the total scheduled maintenance to each 
aggregated system based upon the fraction of the total maintenance actions within each 
aggregated system. Removal rates are based upon a weighted average using the same weights 
as is used in computing the repair times. Figure 2 is an example of the output report (print copy 
only) produced by the SIMREP module and Figure 3 is an example of the display screen. 


Figure 2 

SIMULATION REPORT 


- 

S obeys 

Maint Actions 

On-Veh MTTR 

Off-veh MTTR 



Per Mission 

in hours 

in hours 

Prob-Ren 


Structural 

.9488924 

5.149483 

.4798595 

.2568378 


Fuel /Ox id Tanks 

3.207757 

8.489426 

2.122357 

.3550319 


Thermal /Tiles 

8.7810B 

19.36196 

3.872392 

.8258492 


Propulsion 

2.230742 

2.38786 

6.295268 

1.233446 


Power/Electrical 

4.206195 

0 

1.194725 

.7196475 


Mechanical Sys 

.2439073 

1.945435 

.9503272 

.5120425 

— 

Avionics 

.182453 

1.66362 

1.92992 

.704625 


ECS/Life Support 

.7369836 

2.722914 

.7377812 

1.253681 

— 

Auxiliary Systems 

9 . 617405E-03 

1.442271 

.0145684 

1.068335 



Removal fc 

On-Veh 

Off-veh 



Subsys 

No spare 

Sched MTTR 

Sched MTTR 

AVG CREW SIZE 


Structural 

1 . 075539E-02 

9.909467 

.202234 

1.845915 


Fuel/Oxid Tanks 

.01379 

33.49923 

.6836578 

1.845915 


Thermal /Tiles 

2. 3B0578E-02 

37.61669 

.7676875 

4.5 


Propulsion 

.0290664 

17.69654 

.3611538 

2.43 

*. ....j 

Power/Electrical 

2 . 202556E-02 

35.06894 

.7156926 

2.618356 


Mechanical Sys 

1.782332E-02 

2.547171 

5 . 198308E-02 






1.845915 


Avionics 

2 . 175583E-02 

1.613391 

3 . 292635E-02 






2.18 


ECS/Life Support 

2.927798E-02 

7.319155 

. 1493705 

1.942358 


Auxiliary Systems 

2.718524E-02 

8 . 010093E-02 

1 . 634713E-03 


2.71728 


Launch Reliability .9904091 

Mission Redundant Reliability .9626746 

Integration Tiee - days 0 

Pad Tiee - days l 

Mission Tiee 72 

Planned missions per Year 12 

Fill rate objective .95 


The use of this report to establish the input parameters for the maintenance simulation model is 
discussed in Section 4. 
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Figure 3 

AGGREGATED SYSTEMS DISPLAY 


VEHICLE IS TEST 


Aggregated System Report - page 2 

DATE: 12-21-1994 TIME: 15:31:46 


Aggregated 

Nbr of 

On-Veh HTTR 

On-Veh Sched 

Ave Crew 

System 

Maint Actions 

per HA (hr s ) 

aaint tiae(hrs) 

Size 

Structural 

• 948692 4 

5.149483 

9.909467 

1.845915 

Fuel/Oxid Tanks 

3.207757 

8.489428 

33.49923 

1.845915 

Thermal /Tiles 

8. 7B108 

19. 36196 

37.61669 

4.5 

Propulsion 

2.230742 

2.38786 

17.69654 

2.43 

Power/Electrical 

4.206195 

0 

35.06894 

2.618356 

Mechanical Sys 

. 2439073 

1 .945435 

2.547171 

1.045915 

Avionics 

.182453 

1.86362 

1.613391 

2.18 

ECS/Life Support 

. 7369836 

2 . 722914 

7. 319155 

1.942358 

Auxiliary Systems 

9 . 617405E— 0 3 

1.442271 

8.010093E-02 

2.71728 

Total 

20.54763 

43 . 36297 

145.3507 

21.92574 

Average 

2.28307 

4.818108 

16.15007 

2.436193 


note: MTTR's i ached aaint times assume the Avg Crew Size and are based 

upon a weighted avg (wts-f raction of total failures) of each subsystem. 

ENTER RETURN ...? 


VEHICLE IS TEST 
Aggregated 

Aggregated System Report - page 3 

DATE: 12-21-1994 TIME: 

Removal Off-Veh MTTR Off-Veh Sched 

: 15:31:5* 

Nbr Crews 

System 

Rate 

in hours 

aaint tiae(hrs) 

Assigned 

Structural 

.2151078 

.4798595 

.202234 

3 

Fuel/Oxid Tanks 

.2758 

2 .122357 

.6836578 

2 

Thermal /Tiles 

.4761154 

3.872392 

,7676875 

2 

Propulsion 

.5813279 

6.295265 

. 3611538 

3 

Power/Electrical 

.440511 

1.194725 

.7156926 

3 

Mechanical Sys 

.3864662 

.9503272" 

5 . 198308E-02 

1 

Avionics 

.4351165 

1.92992 

3 . 292635E-C2 

5 

ECS/Life Support 

.5855595 

.7377812 

. 1493705 

5 

Auxiliary Sys teas 

.5437046 

.0145684 

1 . 6347 1 3E-03 

2 

Total 


17.5972 

2.96634 

26 

Average 

.4344121 

1.955244 

.3295934 

2.886889 


note: MTTR's l sched aaint tiaes assuae the Avg Crew Size and are based 

upon a weighted avg (wts- fraction of total failures) of each subsystem. 



3.2 Operations & Support (O&S) Cost Model Enhancements 
3.2.1 R&D and Production Costs 

In order to provide the cost analyst with additional capabilities, both 
research and development and production cost estimating relationships have been added. 
Additional output displays and reports have been developed to support this addition. Additional 
source listings including the CER’s are in Appendix B. 

The Prevail Model [see para 1 .3.3.3] provides for design engineering, test and evaluation, 
and production costs broken down by 15 major subsystems as displayed in Figure 4. These 
CER’s are all weight-driven with the subsystem weights input from the RAM model and 
aggregated to the Prevail WBS. In obtaining production costs, a 90 percent (slope of -.152) 
learning curve is applied with the unit cost of the 5th unit computed by the CER. The learning 
curve is 


y x =kx 152 (15) 

where k is computed from the estimated unit cost of the 5th unit: 

k = cost of unit 5 x 5 152 < 16 ) 

Total production cost is then found from: 

ft 

production cost = 

x=l 

where n is the total number of units produced. Treating the design engineering cost as the 
sustaining engineering cost for the first unit produced, a seventy percent (slope of -.5146) 
learning curve is used to compute the remaining sustaining engineering costs using 

n 

sustaining eng = design eng cost x J^x - - 5146 (1®) 

x-2 

A seven percent profit is added to the design engineering cost and test and evaluation cost. The 
CER’s may be found in Appendix C, module PWRCER. 
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Figure 4 

Prevail Model Costs 


ACQUISITION COSTS 
Note: costs are in ail lions of 

- PREVAIL MODEL 
year 1993 dollars 

- wgt driven 

WBS 

DESIGN ENG 

TEST & EVAL 

UNIT PROD 

TOTALS 

Structure 

0.537 

0.309 

0.067 

0.913 

Thermal 

0.266 

0.163 

0.075 

0.504 

Reentry Protection 

23.457 

11.010 

7.628 

42.095 

Landing System 

4.934 

0.646 

0.364 

5.944 

Electrical -Power 

31.916 

12.404 

4.856 

49.175 

Electrical-Wiring 

110.760 

39.853 

12.617 

163.230 

GuidancefcContro 1 

1.506 

0.350 

1.144 

3.000 

Data Handling 

1.271 

0.307 

0.133 

1.711 

Instrumentation 

5 . 404 

U. 810 

0.307 

6.522 

communications 

0.206 

0.372 

0.23F 

0.813 

Propulsion System 

20.961 

393.786 

5.293 

420.040 

Engine 

0.674 

1.393 

0.347 

2.415 

RCS 

0.060 

0.155 

0.007 

0.222 

Interstage Adapter 

0.042 

0.117 

0.011 

0.170 

Payload Fairing 

37.603 

14.863 

0.000 

52.466 


SUBTOTALS 256.360 494.403 33.006 

TOTAL COSTS FOR 4 VEHICLES 160.791 

note: production costs are based upon a 90% learning curve 
with the unit production costs computed for the 5th unit 
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A second estimate of R&D costs are obtained from the Hypervelocity Model (see para 
1.3. 3.1] CER’s. These costs are broken down into the five categories shown in Figure 5 with 
the engineering labor cost prorated into 12 major subsystems as displayed in Figure 6. The 
CER’s and proration fractions may be found in Appendix C, module HYPER. The primary cost 
^driver* is GROSS TAKE-OFF WEIGHT. 


Figure 5 

Hypervelocity R&D Costs 


HYPER VELOCITY COST MODEL - R&D costs 

Note: costs are in MILLIONS of year 1993 dollars 

ENGINEERING LABOR 74171.719 

TOTAL TOOLING LABOR 732.904 

OTHER DIRECT CHARGES 893.120 

FIRST AIRFRAME MATERIALS 21802.955 

QUALITY CONTROL 11941.112 

TOTAL 109541.813 


Figure 6 

R&D Subsystem Costs 


HYPERVELOCITY COST MODEL - R&D costs 

breakdown of engineering labor costs by subsystem 

Note: costs are in MILLIONS of year 1993 dollars 

WBS LABOR COSTS 


STRUCTURES 

LANDING GEAR 

DOCKING SYSTEM 

PAYLOAD DEP&RETR 

MAIN PROP 

OMS 

RCS1 

AVIONICS 

ELECTRICAL 

HYDRAULICS 

ECS 

FLIGHT FROV 


11659.793 
296.687 
14.834 
511.785 
51942.453 
534.036 
2492.169 
2558.924 
1298 .005 
126.092 
2662.765 
74.172 


TOTAL 


174171.719 
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3.2.2 Facility Construction Costs 

Facility constructi on cos ts ar e comp ute for as a nonrecurring support cost. 
The cost of 16 facilities are estimated by determining the facility size in square feet or linear feet 
using CER’s developed for use in the O&S costing model. Then using facility size as measured 
by square feet or length and construction costs in dollars per square foot or linear foot, a facility 
cost estimate is obtained. Table 2 shows the sixteen facilities and their costs per unit measure 
based upon historical Air Force construction cost data presented in fiscal year 1994 dollars. The 
independent (driver) variables are listed in Table 3 and the facility construction CER’s are given 
in Table 4. 

Table 2 

Facility Construction Cost Data 


FACILITY TYPE 

UNIT MEASURE 
fUM) 

S/UM 

G— rri Opcrsti*ui ami Mww met Fadfetat 


Otnd Mmkouukc Space 

SF 

132 00 

Gmnl Ftp— Maiitemasc* Skfn 

SF 

§9 00 

Avtoifca Sfcap* 

SF 

11700 

Cimiiiii Caatraf 

SF 

12100 

Lagac Miwtcmmacc Shap 

SF 88 on 1 

Miatmata Tniu| 

SF 

100 00 

Emm Opcraoaai 

SF 

100 24 

Cattnl Tawrr 

SF 

297 00 

Saaadraa Opera twa* 

SF 

100 00 

Flight Siaaiitrr Trkkii( Fadttty 

SF 

153 00 

FHckt Trmlaiag Qm— 

SF 

100 00 

NMSImp 

SF j 

142 00 

PMELSfeap 

SF 

114 00 

RaawiyiOvtmui 

SF 

1600 

Tuhrtyi 

SF 

16 00 

Apms 

SF - 

16 00 

Appraach L%htrg (Or Ead) 

EA 

403K 

La d at Raaway 1 ighfif (Oae Lad) 

EA 

2S2K 

Ruwiy Idge Lights (Cart lari min Emtk Sides) 

LF 

MOO 

Taxtway lift Lights (Cart ladadts Bath Sides) 

LF 

147 00 

Geaersl Sappart Fttfttoes 


WiRbawi 

SF 

46 00 

Fire Scads# 

SF 

95 00 

Sacartty 

SF 

104 00 

Tetacartuassicstiaaj 

SF 

148 00 

Madksd Chase 

SF 

138 00 


Table 3 

Construction CER Variables 


INDEPENDENT 

VARIABLE 

DEFINITION 

RANGE 

NO ENG 

Total number of engines on each aircraft 

1 -8 

DRY WGT 

Weight of vehicle (without fuel) in pounds 

9,500-320,000 

LEN WNG 

Aircraft length plus wing span in feet 

75 - 470 

WET AREA 

Total external surface area of vehicle in sq ft 

950 - 33,710 

FUS_VOL 

Total volume of the fuselage in cubic ft excluding 
any engine inlet duct volume 

590-86,610 

FUS_AREA 

External area of fuselage in sq ft including 
canopy 

550 - 16,650 

AV SSYS 

Total number of avionics subsystems 

10-37 

HY SSYS 

Total number of hydraulic subsystems 

16-76 

TOT VEH 

Total number of vehicle per unit 

15-72 
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Table 4 

Facility Construction CER’s 


Facility Square Footage Requirement Parametric Estimating Relationships 


FACILITY TYPE 


Covered Maintenance 
Space 

COV\Mm - -324.775 9 * 2 5907(DKJ' ircr) -2.3*3 25(Z£y_*WG K55.72S 93,/iEV *TVG 
-24 0l5l(fIZS_ 4R£4 > + 841 6011 JFUS _ AREA -1,337 90(HY_SSYS ) 

♦ 971 072t(7Or _mf )-t\6,225 2{ifTOT JTH ) 


0 9985 

General Purpose 
Maintenance Shops 

GESPURP = 56,2 12 07 - 0. 5756( WET _ AREA ) - I 9567 ( FUS_ VOL ) 

+21 .1749 (FUS_AREA) -1,046 75 JFUS_ARE4 - 1,629 14 \n(TOT JEH ) 

30,000-100,000 

0 9985 

Avionics Shop 

AV SHOPS- 565,089 3-46 0272(LEN _WNG ) + 0.8305(»’ET _ AREA ) + 2, 389 89(7‘07* 1 EH) 
- 2 , 167, 77 1( 1 (TOT_ VEH)-\ 60,572. 7 ln( TOT JEH ) 

30,000-100,000 

0 9984 

Corrosion Control 

CORE _ CTL = 54 , 702 . 65 + 205. 9794 ( LEN _ tf NG ) + 0. 10 1 9( FUS_ VOL ) 
-15,529.68 ln(LEN_WNG) 

10.000-100,000 

0 9997 

Engine Maintenance 
Shop 

ENG_K(NT - 187.272 + 3 00024 ( FVS ^ VOL ) - 2 2 6943 ( FUS _ AREA ) + 773 0399 JFUS_ AREA 
-8,104 90( NO _ ENG ) -40,638 6(t/\0 £VG)-3,024 79 \n(AV SSYS )- 27,836 In (TOT \EH ) 

10,000 - 80,000 

0 9977 

Squadron Operations 

SQ_ OPS = 263, J06 8-589 91(NO_ ENG)- 16,7*8 6t(TOT JEH) 
+ 409 , 852 .7 ^ror _ tT// - 584 , 249 3 ln( TOT _ VEH ) 

7,000 - 60,000 

0 9995 

Runway 

RUNWA Y = 5, 444 83 + 0 0*44 3( DRY _ WGT ) - 0. 2322< FUS_ VOL ) — 1 37. 1 195 J FUS _ VOL 
+ 2 \6n(FVS_AREA )- 1,094 07(NO_EVG )+ 1,783 0*jNO_ENG 
+ 619 88611n(y4T_5^KJ > + 20,518 04{\fAV _SSYS ) 

5,000-20,000 


Fire Station 

FIRE_ STA7 = 12 , 224 . 79 + 1 4 . 3 S98( LEN _ WNG ) + 370 9842{ NO ENG ) 
+ 739.2172(l/YO_EM;)-l,385 76. \n(LEN_HKG ) 

8,000-13,000 


Base Ops/CU Tower 

BASE OPS - 9,800 (sq ft) 

N/A 

N/A 


SEC POL - 6,900 (sq ft) 

N/A 

N/A 

■ 

TELECOM - 5,000 (sq ft) 

N/A 

N/A 

NDI Shop 

Ni >1 - 4,000 (sq ft) 

N/A 

N/A 

PMEL Lab 

PMEL =» 5,000 (sq ft) 

N/A 

N/A 

Maintenance Training 

MNT_TRNG * 20,000 TO 30,000 (sq ft) 

N/A 

N/A 

Taxi way s 

TAXIWAY = 10,000 TO 20,000 (lin ft) 

N/A 

N/Af | f- 

Warehouse 

WAREHOUSE = -498,939 5 -19, 027. 69(\/DRY _WGT) + 275 07A9 jDRY WGT 
-992.8392 JWET AREA + 5. 2m(FUS_ VOL ) + 4 , 0 1 3E04( l/FUS_ l VL ) 

-34. 1 \29(FUS~ AREA ) + 1 13,650.8 in( LEN WNG) 

11,000-70,000 

0 9827 
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3.2.3 Revised Cost Element Structure (CES) 


The CES structure used by the model was revised to reflect recent changes 
in the cost breakdown structure used by NASA. Figure 7 is the revised cost structure. 


Figure 7 

Revised Cost Element Structure 


WBS 

2.1 Concept Devi (RfcD) 

2.1.1 Tech Prog 

2.1.2 Phase A/B Cont 

2.2 Acquisition (Invst) 

2.2.1 Design t Devi 

2.2.2 Production 

2.2.3 Integration 

2.2.4 Test fc Eval 

2.2.5 Prog Mgmt fc Spt 

2.2.6 Prog Sys Eng 


2 . 3 Program Oper & Spt 

2.3.1 operations 

2 . 3 . 1 . 1 

Refurbishment 

2. 3 . 1 . 2 

organ. Maint. 

2 . 3 . 1 . 3 

Processing Ops 

2. 3.1.4 

Integration Ops 

2. 3.1.5 

Payload Ops 

2. 3. 1.6 

Transfer 

2 . 3 . 1 . 7 

Launch Operations 

2. 3.1.8 

Mission Ops 

2. 3. 1.9 

Land/Rocv/Recv Ops 

2.3.1.10 

Mon-nominal Ops 


2.3.2 Logistics Spt 


2. 3.2.1 

2 . 3 . 2. 2 
2 . 3 . 3 . 3 

2 . 3 . 3. 4 

2 . 3 . 3. 5 

2 . 3 . 3 .6 

2. 3.3.7 

2. 3. 3. 8 

2. 3.3.9 

2.3.3.10 

2.3.3.11 


Depot Maint. 
Modifications 
Spares 
Expendables 
Consumables 
Inv Mgmt & Warehse 
Training 
Documentation 
Transportation 
Support Equip 
ILS Management 


2.3.3 System Support 

2. 3. 3.1 Support 

2 . 3 . 3 . 2 Faci 1 ity 06M 

2.3. 3.3 Communications 

2 . 3 . 3 . 4 Base Ops 

2.3.4 Program Support 

2.3.5 R&D 

2 . 4 Prog Phaseout 
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3.2.4 Additional Input Screen 

In order to allow for input from the maintenance simulation model, a 
additional input screen was developed. This screen allows for changes to those parameters 
computed by the RAM model which may be updated through the use of the simulation model. 
Figure 8 is an example of this input screen. 

Figure 8 

MSM Input Screen 


MAINTENANCE SIM MODEL (MSM) ORG PERSONNEL 
Total personnel computed by this display will be used for costing 


NBR SUBSYSTEM 


NBR CREWS 
ASSIGNED 


AVG CREW 
SIZE 


TOTAL NBR 
PERSONNEL 


1 Structural 

2 Fuel/Oxid Tanks 

3 Thermal /Tiles 

4 Propulsion 

5 Power/Electrical 

6 Mechanical Sys 

7 Avionics 

8 ECS/Life Support 

9 Auxiliary Systems 
10 SCHED MANPWR 

TOT ORG MAINT PERS- direct labor 

note. When entering crews from the simulation model, scheduled manpower 
should be set to zero since they are accounted for as part of the crew. 

ENTER NBR FOR CHANGE — else enter return 


3 

1.947323 

6 

2 

1.947323 

4 

2 

4.5 

9 

3 

2.43 

B 

3 

4.258048 

13 

1 

1.947323 

2 

5 

2.18 

11 

5 

2.173736 

11 

2 

3.416401 

7 



2 

labor 


73 
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3.2.5 Update of the Logistics Cost Model 

The logistics cost model has not been finalized at this time. The following 
additions and changes have been made to the model as implemented originally in the O&S cost 
model. The following annual recurring depot maintenance cost (manpower and hardware) has 
been added: 

Depot maint cost = flights/yr x LRU removals/flight x [ manhrs/removal x depot technician 
salary ($/hr) + repairable parts cost ($) | 

The inventory management and warehouse cost (both nonrecurring and recurring) has been 
changed to the following: 

Nonrecurring cost = Nbr spare LRU’s x SRU’s per LRU x piece parts per SRU x initial 
warehouse hours x logistics salary ($/hr) 

recurring cost = flights/yr x removals/flight x [ depot coverage factor + condemnation factor] 
x warehouse manhours x logistics salary ($/hr) 

The depot coverage factor is assumed to be the fraction of removals which generate a 
requirement for depot repair. 
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4.0 Maintenance Simulation Model 


The Maintenance Simulation Model (MSM) is a discrete next-event, stochastic simulation 
model written in SLAMSYSTEM. The simulation models the integration, pad processing, 
mission, sating, and maintenance processes for any number of vehicles. The objective of the 
simulation is to obtain more accurate estimates of vehicle tumtimes, maintenance manpower 
requirements, and fleet size to meet a specified mission rate. Unlike the RAM model which is 
based upon mean values (e.g. MTBM and MTTR), the simulation models the number of failures 
per mission and repair times as probability distributions. A detailed discussion of the model and 
its use may be found in Part III of this report. The discussion in this report is limited to the 
integration of this model with the other models identified earlier. 


4.1 Model Input 


The primary input to MSM is generated from the RAM model using the RAM 
Simulation Input Report shown in Figure 2. The simulation model uses aggregated systems as 
defined in Table 1. Each of these aggregated systems requires the following input parameters: 


Parameter Description 


HA per Hsn 
On-Veh HTTR 
Off-Veh HTTR 
Prob-Rei 
Rea & no spare 
On-Veh Sched HTTR 
Off-Veh Sched HTTR 


The lean nuaber of aaintenance actions generated per lission 

The lean tiae to perfon on-vehicle unscheduled aaintenance in hrs 

The aean tiae to perfora unscheduled aaintenance on reaoved coaponents in hrs 

The fraction of reaovals per aaintenance action when a spare is available 

The fraction of reiovals per aaintenance action when no spare is available 

The aean hours to perfon on-vehicle scheduled laintenance 

The aean hours to perfon off-vehicle scheduled aaintenance 


In addition, a vehicle launch or mission reliability and mission length should be consistent with 
that of the RAM model. Other input parameters which may vary include hours worked per day, 
days worked per week, integration time, pad time, safing time, mission rate (missions per year), 
and number of crews assigned to each aggregated system. If the LRC simulation model is being 
utilized as part of the study, then these input parameters, where applicable, should be consistent 
between the two models. The fraction of removals per maintenance action is separated into the 
fraction of removals in which there is a spare component immediately available and the fraction 
of time in which there is no spare available. In the latter case, the on-vehicle repair time 
includes the time to repair the removed component. Otherwise, the failed component is sent to 
the shop where it awaits repair without affecting the vehicle processing time. The separation of 
removals into the two parts is based upon the user specified fill rate in the RAM model. That 
is, 

Rem no spare = (1 -fill rate) x removal rate (19) 
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4.2 Maintenance Hierarchy 

In order to provide a more realistic simulation of the maintenance processing, the 
sequence of repairs as depicted in Figure 9 is assumed. This sequence assumes maintenance can 
be performed on structures, power subsystems, and tanks in parallel. However, thermal 
subsystem work cannot begin until structures has been completed, etc. Within each subsystem, 
all maintenance work is performed according to the 

Figure 9 • 

Sequence of System Repairs 


si rut 


3 

r 


power 


tanks 


thermal avionics aux 


1 i f e sp 

t 



propulsion 


the following hierarchy. The user must also specify the number of crews available to perform 
scheduled maintenance at the same time. 
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Figure 10 

Maintenance Hierarchy 


on-veh unscheduled; 


] maintenance 

i 


' on-veh scheduled j 

K 

maintenance 'i 

T ~ i 

off veh scheduled | 

off-veh unscheduled 

maintenance 

! maintenance 


As a result, all on-vehicle processing will be completed (or adequate crews assigned) before any 
off-vehicle tasks are performed. Once the on-vehicle tasks have been completed for a particular 
system, work is initiated on any sequential subsystem tasks. The model is designed in such a 
manner as to allow for changes in the series-parallel repair relationships among the nine systems. 

4.3 Model Analysis 

The model may be run as a terminating simulation over the design life of the 
vehicle or as a steady-state simulation if a constant number of missions per year is specified. 
The objective is to establish manpower requirements by subsystem and number of vehicles 
required in order to meet a specified mission rate or vehicle tumtime requirement. To this end, 
there is a trade-off between the number of crews and number of vehicles. As the number of 
crews increases, the tumtime of the vehicle decreases. Therefore, at some level of manpower, 
the number of vehicles in the system may be reduced. It is the analyst’s role to find the 
optimum combination of these resources through a systematic use of the simulation model. The 
final number of vehicles and number of crews will be input to the O&S costing model. The 
number of crews is multiplied by the average crew size (and rounded up) and summed to provide 
the total maintenance manpower when used in the O&S costing model. This number would then 
replace the computed number obtained from the RAM model. 
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Appendix A 

Fraction Inherent Maintenance Actions 

The following values were obtained by averaging the aircraft fractions by work unit code 
(WUC) and then averaging the WUC values (displayed on the following pages) which correspond 
to the NASA work breakdown structure (WBS). 


SUBSYSTEM 

1.00 WING GROUP 

2.00 TAIL GROUP 

3.00 BODY GROUP 

3.10 TANKS-LOX 

3.20 TANKS-LH2 

4.10 IEP-TILES 

4.20 IEP-TCS 

4.30 IEP-PVD 

5.00 LANDING GEAR 

6.00 PROPULSION-MAIN 

7.00 PROPULSION-RCS 

8.00 PROPULSION-OMS 

9.10 POWER-APU 

9.20 POWER-BATTERY 

9.30 POWER- FUEL CELL 

10.00 ELECTRICAL 

11.00 HYDRAULICS/PNEUMATICS 

12.00 AERO SURF ACTUATORS 

13.10 AVIONICS-GN&C 

13.20 AV-HEALTH MONITOR 

13.30 AVIONICS-COMM & TRACK 

13.40 AV-DISPLAYS & CONTR 

13.50 AVIONICS-INSTRUMENTS 

13.60 AVIONICS-DATA PROC 

14.10 ENVIRONMENTAL CONTROL 

14.20 ECS-LIFE SUPPORT 

15.00 PERSONNEL PROVISIONS 

16.10 REC & AUX-PARACHUTES 

16.20 REC & AUX-ESCAPE SYS 

16.30 REC&AUX-SEPARATION 

16.40 REC&AUX-CROSS FEED 

16.50 REC & AUX DOCKING SYS 

16.60 REC&AUX MANIPULATOR 


FRACTION INHERENT FAILURES 
.35 
.35 
.36 
.49 
.49 
.5 
.5 
.5 
.52 
.46 
.46 
.46 
.46 
.46 
.46 
.57 
.49 
.47 

.49 

.38 

.52 

.5 

.55 

.5 

.41 

.46 

.47 

.49 

.43 

.09 

.5 

.5 

.5 


A-l 





























































C140-PCT F4fc-4NH ! F4E-TOT F4E-PCT F5E-4NH F5E-TOT 1F5E-PCT F15-1NH F15-T0T 


0.3572161 10.4 


0-292722! 54 66! 7.2151 0.131517! 40.97 ! 6615j 0.16146! 7429! 19.502 

264 
.799 


0.541623 24 12 13.154! 0.545357 : 21.78 ! 9291 


52 


EE 


0272713; 51.17. 32.551! 0.636134 49.65 


0.444403 39.74 12.56 ! 0.316556 44.74 ! 21.024) 0.463326! 


65.925! 0.677695 


r ' » ' l l 




mm 


94 71 53 966j 0.570014! 58.02 27.665 


^E£L 


*'-M ! '.A 


40 61 24 4041 0 596137 




7JM| 0.S270**! * 581 5 Ml O.M«76l 38.71! 14.0181 


3EE2E3I 


16731 1673H 1! 


16731 1 199 179; 0.011905 ! 5560 57! 365.366 ! 0 069307’ 6227.67 127.095 


1144.6241 

0.676471 4151.761 

1437.154 

120 1361 

0.530671 < 



T F16A4NH iF16A.TOT1F16A-PCT1F111A4NHF111A-TOlF111A4>ClF111F-1NHF111F-TO 


7 5261 0.299463 31.59! 2.156! 0 066249' 515 1.634 


0.262512! 96 07 25 303 025601 


10 104 0.6443861 34.36! 16.519! 0.460463 11.151 6.499 


15207 0.370993 


9.113! 0.440454 0 42 ) 3 06 


107.74 46.134 ! 0426196 ! 59.16 22.917 0.367242 11.79 ! 5.064 


32.021! 0.54793 


FnrnMTTIEl 


0270677 

779.17! 

1 246.0531 0.315789 115.71 

1 50.62 


0.46126! 1075.76 ! 2l7?t2Sr0201634l 1558.331 359.615 ! 0.23076Q! 196.66 ! 60.661 

+ 71 ft23] 0.6 30793 62.91! 54273 

166.67 70 3441 0 4560551 : I 




645.451 316.964) 0.491074 


: ; t 

0361603! 3551 1702641 0:47961 7 133.571 53 1251 0.397732S 92.36 


lBCT!B 


177501 5071.4291 0265714! 
177 50l 





















Fill F-PC' T38-INH 

T38-TOT T38-PCT 

AVGPCT STD DEV 

0 317282 

1999 

7.0841 

0.354377 

0.3519031 0131945 


754 

26 799 

0 355424 

0.380234 

0 122158 

0 58287 

21.76 

13.281 

061034 ! 0.523173 

0 121987 

0.48817 

37 88 

19.731 

0 523646 

0488278 

0 099201 

0479751 

48 53 

21.816 

046456 

0.458918 

0004174 
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Appendix B 
Fraction Air Aborts 

The following percentages were obtained from aircraft data. The PCT OF TOT values 
are averaged across corresponding WUC’s to obtain WBS values. The abort rates (air + 
ground) computed by the regression equations in the RAM model are then adjusted by these 
factors if the air abort only option is selected. A user specified default value is used for those 
subsystems (WBS) not corresponding to any WUC. 

legend: 

TOT AR - fraction of maintenance actions resulting in either a ground or air abort. 

AIR AR - fraction of maintenance actions resulting in an air abort. 

PCT DECR = 100 x (TOT AR - AIR AR) / TOT AR 
PCT OF TOT = 1 - PCT DECR 



TOT AR 

AIR AR 

PCT DECR 

PCT OF TOT 

WUC11 

0.00480 

0.00120 

75 

25 

WUC12 

0.00830 

0.00120 

86 

14 

WUC13 

0.01570 

0.00350 

78 

22 

WUC14 

0.02390 

0.00327 

86 

14 

WUC23 

0.01410 

0.00390 

72 

28 

WUC 2 4 

0.06400 

0.00100 

98 

2 

WUC41 

0.02470 

0.00709 

71 

29 

WUC42 

0.04600 

0.00722 

84 

16 

WUC44 

0.01420 

0.00128 

91 

9 

WUC45 

0.03110 

0.00262 

92 

8 

WUC47 

0.00760 

0.00118 

84 

16 

WUC49/96 

0.01850 

0.00955 

48 

52 

WUC51 

0.01340 

0.00215 

84 

16 

WUC52 

0.02140 

0.00303 

86 

14 

WUC61 

0.00050 

0.00000 

100 

0 

WUC62 

0.00570 

0.00129 

77 

23 

WUC63 

0.01200 

0.00110 

91 

9 

WUC 6 4 

0.00800 

0.00117 

85 

15 

WUC71 

0.00520 

0.00063 

88 

12 

WUC72 

0.00280 

0.00112 

60 

40 

WUC91 

0.00520 

0.00050 

90 

10 

WUC93 

0.0035 

0.0023 

34 

66 

AVG 

0.01594 

0.00256 

80.10 

19.90 
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Appendix C 


Operations & Support Cost Model 
Source Listing 


LCC.BAS main module 

DECLARE SUB MAIN 0 
DECLARE SUB DISPER5 0 
DECLARE SUB PERS Q 
DECLARE SUB REPORT 0 
DECLARE SUB DAT AIN () 

DECLARE SUB DISWBS 0 
DECLARE SUB SAVE 0 
DECLARE SUB SECOND 0 
DECLARE SUB MISC () 

DECLARE SUB totdd 0 
DECLARE SUB year2 Q 
DECLARE SUB dismeou2 0 
DECLARE SUB WBSS 0 
DECLARE SUB F ACCOST 0 
DECLARE SUB INFBED () 

DECLARE SUB INFBA 0 
DECLARE SUB INFLATE 0 
DECLARE SUB FCONST 0 
DECLARE SUB DISMENU () 

DECLARE SUB SUBSYS 0 
DECLARE SUB DRIVERS 0 
DECLARE SUB SOFT 0 
DECLARE SUB WGT 0 
DECLARE SUB DRIVER 0 
DECLARE SUB CST 0 
DECLARE SUB SYS 0 
DECLARE SUB RAMI 0 
DECLARE SUB INIT 0 
DECLARE SUB FILET 0 
DECLARE SUB INPT 0 
DECLARE SUB COMPUTE 0 
DECLARE SUB DISPLAY 0 
DECLARE SUB FILEO () 

DECLARE SUB INFLBA 0 
DECLARE SUB INFLBED 0 
DECLARE SUB INFLCC 0 
DECLARE SUB WBSS {) 

'NASA LANGLEY RESEARCH CENTER 

'LIFE CYCLE COST MODEL developed by University of Dayton, 

'EMS Department, Dayton, Ohio 45469-0236, 

’Dr Charles Ebeling, Kenneth Beasley, (513) 229-2238, (f) (513) 229-2698, 

’Under NASA Contract NAG 1-1327, June, 1994 
’save as LCC.BAS 

COMMON SHARED VNAMS, SMP, TME, TMF, SDE, STE, SUP, TW, AF, FLCC, INFB, INFBDd, INFLC 
COMMON SHARED TFCC, 7TSC, MAT, CNT, OTH, PER, FAF, AMMC, TMMC, inx, year 
COMMON SHARED MM, TDSC, ADJ, INST, INTEC, RESO, APPL, CPLX, UTIL, PLTFM, WEIGHT 
COMMON SHARED viS, seW, wbs, totd, AVWT, lef, inxf, TOMO, fctot, TPR 

COMMON SHARED SI, RS, NC, RC, NIMWC, RIMWC, RGSE, NGSE, Nl, N2, N3, M2, M3, M4, Tl, T2, S1.S2, NILSM, RILSM 

COMMON SHARED AC, CS, HYPS, PRVS1, PRVS2, SEC, RTTTLES, OVH, XFG, Dt, TX, FLAG 
DIM SHARED wbsS<2, 60), P*15), XP(25), X(30), V(I5), wb*l5) 

DIM SHARED W(35), S(35), MP(35), CF$(30), XCF(30), AMC(2, 50), MC(2, 50), id(5), DC(10, 10) 

DIM SHARED A(50, 3), B(50, 3), DE(16), TE(16), UP(16), WT(15), HYP$(l6), roc*(l0) AS SINGLE 
DIM SHARED CF(35), LCS(35), QTY(35), VX*60), VX(60), mh(20), rd(10), OSCU(10) 

DEM SHARED FSQ(20) 1 FC(20), F$(20), FCC(20), mhc(20), rdc(10), ism(20, 10), INFf(10) 

DIM SHARED TOTH(lO), TOTV(IO), wbac<4, 50), wbacc<50), MF$(40), MCF(40) 

DIM SHARED HP(I0), HH(10), HS{10), HR(I0), HD(10), infv(50), OPH(35), OMO(l<J), OMO*lO) 

DIM SHARED CZ(10), SQI0), CA(33), SWBS*10) 

COMMON SHARED CZ(), SCO, CA(), SWBSJO 

C0N040N SHARED KPO, HH0, HSO, HR0, HDO 

COMMON SHARED wbs$0, PHJO. P*0. XPQ, XQ, VQ, wb$0 

COMMON SHARED W0, SO, MPO, CFSO, XCF(). AMCO, MQ), tdQ, DCO 

COMMON SHARED A0, BO, DEO, TEQ, UP(), WTO, HYP$0 

COMMON SHARED CFQ, LCS0, QTY0, VXfy, VX0, mhO, rdO, OSCL$0 

COMMON SHARED FSQO. FC0, F$0, FCCQ, mhcO, nfc(), ismO, INFfO 

COMMON SHARED TOTHQ, TOTV0, wbscO, wbaccO, MF$0, MCF(), tnfv(), OPH(), OMOQ, OMO$0 



’BEGIN PROGRAM 
ON ERROR GOTO ERR SUB 


’ disp' display banner 

CLS : COLOR 8 

PRINT ’Doug Morris, URC* 

PRINT "NASA Grant NAG I -1327* 

PRINT "Dr Charles Ebeling and" 

PRINT "Kenneth Beasley" 

PRINT "University of Dayton" 

PRINT "300 College Park" 

PRINT "Dayton, Ohio 45469-0236* 

PRINT "(513) 229-2238* 

PRINT ’ June 1994- updated Dec 94- 
COLOR 10 

LOCATE 12, 20: PRINT "NASA - LANGLEY RESEARCH CENTER- 
PRINT TAB(20); "OPERATIONS A SUPPORT COSTING (OSC) MODEL* , 

COLOR 9: LOCATE 16, 20: PRINT "ENTER VEHICLE NAME 
COLOR 14; INPUT ", VNAM$ 

CALL INIT ’initialize all arrays, constants to default values 
TOP: CALL MAIN 

ERRSUB ERROR HANDLING ROUTINE 

IF ERR - 53 OR ERR - 61 OR ERR - 71 OR ERR - 25 OR ERR = 27 OR ERR - 68 THEN 
IF ERR - 25 THEN PRINT "DEVICE FAULT" 

IF ERR - 27 THEN PRINT 'OUT OF PAPER" 

IF ERR - 68 THEN PRINT "DEVICE UNAVAILABLE" 

IF ERR - 53 THEN PRINT "FILE NOT FOUND" 

IF ERR - 61 THEN PRINT "DISK FULL* 

IF ERR - 71 THEN PRINT "DISK NOT READY- 
INPUT "ENTER RETURN"; RET 
RESUME TOP 'MAIN MENU 
ELSE 

PRINT "UNRECOVERABLE ERROR" 

ON ERROR GOTO 0 
END IF 

10000 ’INPUT DATA 

10005 DATA 1,00 WING GROUP, 2,00 TAIL GROUP, 3 00 BODY GROUP 

10007 DATA 3 10 TANKS- LOX, 3 20 TANKS-LH2.4. 10 lEP-TfiLES,4 20 IEP-TCS 

10008 DATA 4. 30 IEP-PVD 

10010 DATA 5.00 LANDING GEAR ,6 00 PROPULSION-MAIN, 7 00 PROPUl^ION-RCS 
10020 DATA 8.00 PROPULSION-OMS f 9.10 POWER- APU ,9 20 POWER-BATTERY 
10022 DATA 9 30 POWER-FUEL CELL, 10 00 ELECTRICAL 
10030 DATA 11 00 HYDRAULICS/PNEUMATICS, 12.00 AERO SURF ACTUATORS 

10033 DATA 13. 10 AVTONICS-GNAC.13.20 AV-HEALTH MONITOR 

10034 DATA 13 30 AVIONTCS-COMM A TRACK, 13 40 AV-DtSPLAYS A CONTR 

10035 DATA 13.50 AVIONICS-INSTRUMENTS, 13.60 AVIONICS-DATA PROC 
10040 DATA 14.10 ENVIRONMENTAL CONTROL, 14.20 ECS- LIFE SUPPORT 
10050 DATA 15 00 PERSONNEL PROVISIONS, 16.10 REC A AUX PARACHUTES 

10055 DATA 16,20 REC A AUX-ESCAPE SYS, 16.30 RECA AUX-SEP ARATION 

10056 DATA 16.40 RECAAUX-CROSS FEED 

10060 DATA 16.50 REC A AUX DOCKING SYS, 16.60 RECAAUX MANIPULATOR 
10070 DATA 17 00 PERSONNEL CREW GEAR, 18. 00 PAYTOAD PROVISIONS 
10080 DATA 19.00 CARGO (RETURN), 20.00 RESIDUAL FLUIDS, 21.00 RESERVES 
10090 DATA 22.00 RCS PROP, 23 .00 ACS PROP, 24.00 CARGO (DEL), 25.00 (ASCENT RES) 

10100 DATA 26.00 INFLIGHT LOSSES, 27.00 ASCENT PROPELLENT, 28,00 PRE-LAUNCH LOSS) 
101 10 DATA EXT TANK, ELECTRICAL, PROP/FLUIDS. RANGE SAFETY, STRUCTURES, TPS 
10120 DATA SRB, ELECTRICA L, PROP/ FLUIDS, RANGE SAFETY, STRUCTURES, TPR 
’ BEGIN LIFE CYCLE PHASE IWPOT “ ~ 

DATA 2.1 Concept Devi (RAD), 2.1.1 Tech Prog, 2. 1 .2 Phaae A/B Coot 
DATA 2.2 Acquisition (Invst), 2.2.1 Design A Devi, 2.2.2 Production 
DATA 2.2.3 Integration, 2.2.4 Tert A Eva], 2,2.5 Prog Mgmt A Spt 
DATA 2.2 6 Prog Sys Eng, 2.3 Program Oper A Spf 
DATA 2.3.1 Operation*, 2.3. 1.1 Refurbishment, 2.3. 1.2 Organ, Maim. 

DATA 2.3. 1.3 Processing Ops, 2.3. 1.4 Integration Ops, 2.3. 1.5 Payk*d Op* 

DATA 2. 3. 1.6 Transfer, 2.3, 1 .7 Launch Operations, 2.3, 1 .8 Mission Ops, 2. 3. 1.9 Land/Rocv/Recv Op* 
DATA 2.3. 1 10 Non-nominal Ops 

DATA 2.3.2 Logistics Spt, 2.3.2. t Depot Maim., 2. 3. 2.2 Modifwatiani 

DATA 2.3.3. 3 Spares, 2.3. 3. 4 Expendable*, 2 3 3.5 Consumables 

DATA 2 3.3.6 InvMgmt A Warehse, 2.3 3.7 Training, 2.3.3 8 Documentation 

DATA 2 3.3,9 Transportation, 2.3.3.10 Support Equip, 2.3.3.11 ILS Management 

DATA 2.3.3 System Support, 2.3.3. 1 Support, 2.3. 3.2 Facility OAM, 2.3,3 3 Communications 

DATA 2.3.3 4 Base Ops, 2.3.4 Program Support 

DATA 2.3.5 RAD, 2.4 Prog Phaseout 
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’ BEGIN SYS PARAMETERS 

DATA NBR OF VEHICLES, 4 

DATA FLIGHTS/ YR, 4 

DATA HOURS/MISSION, 120 

DATA SYS LIFE IN YRS, II 

DATA BASE YEAR $, 1993 

DATA CONSTANT O-NO/I-YES, I 

DATA INITIAL BEDDOWN, 2000 

DATA NBR TEST VEHICLES, I 

DATA FUTURE INFLATION RATE, 049 

DATA reserved, 0 

DATA TFF (mo since Jan50), 600 

DATA LOG COST MODEL-O HYPERVEL-1 ,0 

’ BEGIN COST FACTORS 

DATA Avg Cost of Prod Engines $M,4 

DATA Base LvI Support Staff salary- S/hr, 15 00 

DATA AVG Cost of Prod stages - eug/SRM-SM, 100 

DATA Average LRU Com-S, 129930 

DATA ORG Technician salary - J/hr,22.37 

DATA Engineering labor com - $/hr,45 

DATA Depot Technician Salary - Vhr,25 94 

DATA Logistics Salary - J/br,20.44 

DATA Bask CBT coM-S/hr, 13396 

DATA Depot Transporter CoM-$/lb-mi, 000203 

DATA DSE Costs- SK, 5 825000 

DATA ECLSS CoM-$,8313 

DATA Page Change Com, 249 

DATA Rec Transporter Com S/1b- mi, 000705 

DATA Transporter CoM $/Bj- mi, 000705 

DATA Vehicle GSE-JK, 506862 

DATA Annual CoM of DoD stage/element spt.O 

DATA MPS Fuel CoM - S/lb, 2. 8 

DATA MPS Oxidizer CoM - S/lb, 028 

DATA OMS Fuel CoM - S/lb,. 17 

DATA OMS Oxidizer CoM - S/lb, 0015 

DATA RCS Fuel Com - S/tb,.I7 

DATA RCS Oxidizer Com - S/lb, 0015 

DATA SE For Tot Refurt>-$M,3 

DATA SE Fa- Refurb Eng-JM.2 

DATA Repairable parts cost, 1 200 

DATA Tech Manual Page Coats, 11 36 

DATA reserved.O 

DATA ATE Costs, 6989458 

’ BEGIN MISC FACTORS 
DATA Avionics fraction of LRUs,. 054 
DATA Commonality Facta, 1 
DAT A Percent Commercial Off - Shelf, 3 
DATA Condemnation Rate (fraction) , 025 
DATA Depot Coverage Facta, .56 
DATA Depot Distance - mi, 30 
DATA Depot Initial Tinging time - hrs,80 
DATA Depot manual page count, 7 5 
DATA Org manual page count, 75 
DATA Page change rite,. 1 
DATA Depot Personnel turnover rate, .061 1 
DATA Og personnel turnover rate, 061 1 
DATA Depot Manhrs / repair, 10 
DATA Initial CALS fa**,. 7 
DATA Initial CBT Factor, 5 
DATA Initial ILS Mgmt,.0S 
DATA Initial tmg Course time - hn,24 
DATA Initial Warehouse manhrs , 2.4 
DATA MPS Fuel Weight - in, 227641 
DATA MPS Oxidizer Wt - lb», 1361936 
DATA OMS Fuel Weight - lbs, 90 10 
DATA OMS Oxidizer Wt - lbs, 14866 
DATA RCS Fuel Weight - lbs, 2954 
DATA RCS Oxidizer Wt - lbs, 1853 
DATA Piece Parts per SRU, 10 
DATA Packaging Wgt Tax, 1 .941 
DATA Quantify of stages flown, 1 
DATA Recovery Distance - mi, 2200 
DATA Recurring GSE coM facta,. 1 
DATA Recurring Inventory Factor,. 2 
DATA Recurring ILS mgnst, .13 



DATA Recurring training factor, 1 
DATA Recurring CALS Factor, .3 
DATA Nbr SRU’s per LRU, 8 
DATA Nbr of ORG Technicians, 1 230 
DATA TPS factor, 320000 
DATA NBR Spare LRU'S, 432 
DATA Depot Factor,. 56 
DATA Distancc-Trans -MI, 2 100 


’ BEGIN POWER FCN PARAMETERS FOR DF.SIG, T&E, AND UNIT PROD CER'S 


'winged body 

DATA 2 1 457 , . 669 . . 1 065 , .675 , . 1 250 , .675 . 1.1 6056, 483 , 22095 , 677 
DATA 2. 39276,. 575,. 2487 ,.805 ,.508 , 583, 2 16075, 588, 04935, 736 
DATA 101,-711, .16187, .736, 0241 , 633 , 0168, 678, .1236, 677 
DATA .065, .7, .05, .7, .114, .745, .09172, .666, .5316, 67, .05356,. 873 
DATA . 1229, 676, .324, .67, .0952, .642, 5.595, .537,. 357,.642 , 0619 
DATA .675 , 0466, 675,. 026926, 761, 03,. 76, 0236,. 76,. 06936,. 674 
DATA .0202, .762,. 105515, .762,, 24058, .585, .0531, .762, .12288, .776 
DATA 05929..67, 0213, .74,. 087318, 67, .002815, .758, 0044 , 761 


'lifting body 

DATA .21457, .669,. 1065..675,. 1250,. 675, 1.16056, .483, .22095, .677 
DATA 2.39276, 575, 2487, 805, 508,. 583, 2. 16075, 588, 04935,. 736 
DATA ,101, 7 1 1,, 16187,. 736,. 0241,. 633,. 0168,. 678,. 1236,. 677 
DATA .065, .7, .05, .7,. 114,. 745, .09172, .666, .5316,. 67, .05356, .873 
DATA .1229, .676,. 324,. 67, .0952, .642,5 595,.537,.357 > . 642 , 0619 
DATA .675, .0466, .675, .026926, .761, .03, 76, .0236, .76, 06936, 674 
DATA 0202, 762, 105515, .762, .24058, .585, 0531,. 762, 12288, .776 
DATA .05929,.67,.0213,.74..087318,.67, 002815,-758, 0044, 761 

' ballistic 

DATA .21457, 669,. 1065,. 675, .1250, .675, 1. 16056, 483, 22095, .677 
DATA 2. 39276, .575,. 2487,. 805,. 508,. 583,2. 16075,. 518,. 04935,. 736 
DATA .101, 711,. 16187, .736, .0241, .633, .0168, .678, .1236, .677 
DATA .065, .7..05, .7,. 114,. 745,. 09172,. 666, .5316, .67, .05356,. 873 
DATA . 1229..676,. 324, .67, .0952, .642, 5. 595, 537, .357 , 642 , 0619 
DATA ,675 . .0466, .675, .026926, . 761 , 03, .76, .0236, .76. 06936, .674 
DATA .0202,. 762,. 105515, .762, .24058, .585, 0531, 762, 12288, 776 
DATA .05929,-67 , 0213, 74 , 087318, .67, .002815, .758, 0044 , 761 


’ BEGIN DESIGN/PERFORMANCE VARIABLES 

DATA DRY WGT (LBS) , 223289 

DATA VEH LENGTH + WING (ft), 200 33 

DATA CREW SIZE, 8 

DATA NBR PASSENGERS, 0 

DATA NBR MAIN ENGINES, 3 

DATA FUSELAGE AREA, 7650 

DATA FUSELAGE VOLUME, 12013 

DATA TOT WETTED AREA, 10873 

DATA NBR WHEELS, 10 

DATA NBR ACTUATORS, 35 

DATA NBR CONTRL SURFACES, 6 

DATA MAX KVA, 285 

DATA NBR HYDR SUBSYS, 35 

DATA NBR FUEL TANKS (internal), 4 

DATA TOT NBR AVIONICS SUBSYS, 31 

DATA NBR DJFF AVIONICS SUBSYS, 16 

DATA BTU/HR/persoo, 119 

DATA TAKEOFF GVW-LBS, 232500 

DATA SINK SPEED FT/SEC, 9 

DATA PAYLOAD ARM LENGTH -METERS, 5.94 

DATA TOT THRUST OF I MAIN ENGINE-LBS, 390068 

DATA THRUST OF OME ENGINE-LBS, 4000 

DATA THRUST OF RCS1 LBS, 825 

DATA THRUST OF RCS2-LBS, 8 

DATA rescrved.O 

DATA reserved, 0 

DATA rcaerved.O 

DATA rescrved.O 

DATA reserved, 0 

DATA LENGTH -FT, 122.2 

DATA MIN LANDING DIST [FT], 15000 

DATA LANDING MASS*VEL*2-lbxknots,433.2 

DATA LANDING WEIGHT, 202000 
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DATA NUMBER OF BRAKES/VEH, 5 

DATA CARGO VOLUME [FT *3], 14152 

DATA CARGO WEIGHT (PAYLOAD), 82729 

DATA NUMBER OF POWERED EXITS, 2 

DATA NUMBER OF ANTENNAS, 22 

DATA CARGO FLOOR AREA [FT 2], 721 

DATA NUMBER OF GENERATORS, 10 

DATA NUMBER OF HYD. PUMPS, 18 

DATA NUMBER OF HYD. SUPPLY SYS., 9 

DATA NUMBER OF POSSIBLE EMERG EXITS, 3 

DATA NUMBER OF PRIMARY COMPARTMENTS, 4 

DATA NBR OF SEATS rNC BUNKS, 8 

DATA AVTONTCS BLACK BOX WGT -LBS, 4 306 

DATA AVIONICS INSTALL WGT -LBS. 2239 

DATA MAXMACH NBR ,7 

DATA LRU REMOVALS/FLIGHT, 300 

DATA VEH TURNAROUND TIME-DA YS?,55 

DATA TOT NBR SUBSYSTEMS, 105 

DATA MAJNT SIGNF ITEM-LRUs.40 

DATA NBR LRU’S, 500 


'unused 

’DATA NACELLE WETTED AREA.l 
DATA NBR PRIMARY COMPRTMTS.l 
’DATA TAIL AREA.l 
’DATA MAX TAKE-OFF WGT.l 
’DATA CARGO FLOOR AREA (sq ft), 1 
'DATA CARGO WGT (lbs?) , I 
’DATA CARGO VOL(cu ft), I 
'DATA INT FUEL WGT (lbs), I 
’DATA GALS FUEL/HR, 1 
’DATA MAIN ENG THURST, I 
’DATA OMS THURST,] 

DATA RCS THURST, 1 
’DATA MIN LANDING DIS (ft),l 
’DATA MAX MACH NBR, 7 
’DATA NBR GENERATORS, l 
’DATA TOT EVA, I 

’FACILITY COST DATA 

DATA COVERED MAINTENANCE [S/FT 1 !, 132 

DATA GENERAL MAINT SHOP [S/FT 1 ] ,89 

DATA AVIONICS SHOPS [S/FT 1 ], 1 17 

DATA CORROSION CONTROL [S/FF],128 

DATA ENGINE MAINTENANCE [S/FP],88 

DATA OPERATIONS [S/FT 3 ], 100 

DATA RUNWAY {S/FT1.I6 

DATA FTRE STATION [S/FT|,95 

DATA CONTROL TOWER [S/FP],297 

DATA SECURITY [J/FPl.lOA 

DATA TELECOMMUNICATIONS lVFP],148 

DATA NDI SHOP [$/FF],I42 

DATA PMEL LAB [S/FT 1 ],! 14 

DATA MAINT TRAINING [S/FT 1 ], 100 

DATA TAXIWAYS [S/FT], 16 

DATA WAREHOUSES [S/FT 1 ], 46 

’ byperveolcity WBS 

DATA STRUCTURES, LANDING GEAR, DOCKING SYSTEM, PAYLOAD DEPARETR 

DATA MAIN PROP, OMS, RCS I, RCS2 , J ET-M3 , JET + M3, ENGINE INST ALL, AVIONICS, ELECTRICAL 

DATA HYDRAULICS, ECS, FLIGHT PROV 

’ PREVAIL - DT&E COST CATEGORIES 

DATA Structure, Thermal, Reentry Protection, Landing System, Electrical -Power 

DATA Electrical -Wiring, GuidanceA Control, Dali Handling, Instrumentation 

DATA Communications, Propulsion System, Engine, RCS, Interstage Adapter, Payload Fairing 

’ OAS COST CATEGORIES 

DATA STRUCTURE, LANDING GEAR, PAYLOAD DEP A RET, AVTONTCS, ELECTRICAL, HYDRAULICS 
DATA ECLS, FLIGHT PROVISIONS, DOCKING 

STAGE TYPE (from PREVAIL) 


’ L02-LH2 

’DATA ,0577, .480,. 0499, .669, .1065, .675,. 0625, .675 , 0712, .483 
’DATA Wr) t .GT),\Am,nS f . 2144,. 805,. 1270..583..3225,. 588 
’DATA . 1974,. 736, . 1010,. 711,. 0658, .736, 0241,. 633,. 0168,. 678 
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’DATA . 1530,. 510, 0412,. 677, 0650, 700, ,0250,. 700, 0500, ,745 
’DATA .1079,. 666,. 7088, 670, , 0206, . 873,. 1 229, . 676. . 3240, .670 
’DATA ,5950, 642, 5. 5950, .537, .2380, .642, .0619,. 675, .0466,. 675 
’DATA .00697,. 575,. 00343,. 761,. 03000,. 760, 00590,. 760,. 00578, 674 
'DATA .01010, 762 , 04490,. 762,. 05230, 585, .02950, .762, 01920,. 776 
’DATA .05390,. 670,. 02 130,. 740,. 05390,. 670, 002815,. 758,. 00440 , 761 

’ Other liquid propellant 

’DATA .02885 , 480,. 0499 , 669, 1065, .675,. 0625, .675, .0712, .483 
’DATA .0697, .677, 1.4590, .575, .2144,. 805, .1270,. 583, .3225. .588 
’DATA .0658,. 736,. 03667,. 71 1, 0658, 736 01607 , 633 , 0168,. 678 
’DATA . 10205,. 5 10,. 041 2, 677, 0650, 700, .0250, 700, 0500, .745 
’ DATA . 1 079 , . 666, . 7088 , 670, .0206, 873,. 1 229, .676, .3240, 670 
'DATA . 2380, 642, 1. 8650,. 537,. 2380 , 642,. 061 9.. 675 . 0466, .675 
’DATA .004649,. 575,. 00343,. 761, 03000,. 760, 00590,. 760,. 00578,. 674 
’DATA .01010,. 762, .04490, .762 , 05230, .585, .02950, .762,. 01920.. 776 
’DATA .05390, 670, .00852, .740, .05390, .670,. 002815, .758, 00440,. 761 

’ Solid rocket motor 

’DATA 0241, 633 , 0 , 0,. 1065,. 675 , 0125, .675 , 0712, .483 
’DATA . 0697, . 677, 1.4590, .575,. 2144, 805 ) .0,.0,. 3225, 588 
’DATA ,0,.0,.0,.0,.0,.0,. 008035, .633, .0168, .678 

’DATA . 0619, . 675, .0, 0,. 0650, 700, 0050, .700,. 0500, 745 ’possibly 0050 = 0250 

’DATA . 1079, .666, .7088 , 670, .0206, .873, .0 , 0, .3240 , 670 

’DATA 0,.0,.0 l .0,.0,.0, . 03095,. 675 , 0466. 675 

’DATA .002815, 758, 0, 0, 03000,. 760, 00236, 760,. 00578,. 674 

'DATA .01010,. 762,. 04490,. 762,. 05230, 585 , 0, 0, .01920, 776 

’DATA .0, 0, 0, 0, 0, 0,. 00070*,. 758, 00440,. 761 

* inflation factors from NASA for the years 1993 to 2000 
DATA 1 046, 1.047, 1.046, 1.044, 1.05, 1.048, 1 047, 1 049 

’ WBS default costs (in wbsc matrix) 

DATA 0,0, 0.0, 0,0, 0,0,0, 0,0,0, 0,0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 

DATA 0, 0,0, 0,0, 0,0,0, 0,0,0, 0 ,0,733.7,1288.7,0 

'ORG LEVEL OVERHEAD 
DATA Chief of Maintenance 
DATA Quality Control 
DATA Maintenance Control 
DATA Job Coitrol 
DATA Plans A Schedules 
DATA Documentation 
DATA Materiel Control 
DATA Supply Liason 
DATA Production Control 

SUB CST 
IO = 1 : IE — 14 
CST: CLS : COLOR 10 
PRINT TAB(I); 'VEHICLE IS *; 

COLOR 1 1 : PRINT VNAM$; 

COLOR 10: PRINT TAB(30); 'CO ST FACTORS & RATES TABLE': PRINT 
PRINT TAB(5), 'Note: all costs should be entered in 1993 year dollars' 

COLOR 5: PRINT TAB(5); ‘c ur rently not used in QAS costing 1 
PRINT : COLOR II 

PRINT TAB(5); 'NBR', TAB(15); ’CATEGORY’; TAB(60); 'VALUE- 
PRINT 

FOR I = IO TO IE 

IF I - 6 OR I - 17 OR I = 28 THEN COLOR 5 ELSE COLOR 12 
PRINT TAB (5); l; TAB(15); CF*I); TAB(60); 

PRINT USING 'Wfmm.mF: XCF(T) 

NEXT I 
COLOR 3 

LOCATE 23, 20: INPUT 'ENTER NUMBER TO CHANGE 1 , nbr 

IF nbr > 0 THEN LOCATE 24, 20: INPUT 'ENTER NEW VALUE ', XCF(nbr): GOTO CST 
IF IO = 1 THEN IO — 15: IE = 29: GOTO CST 
BT3: END SUB 

SUB DATAIN 
CLS : COLOR 10 

PRINT : PRINT TAB(lO); ■CURRENT LCC INPUT FILES': PRINT 
FILES 'MNP' 

PRINT : COLOR 1 1 

LOCATE 12, 15: PRINT 'INPUT DATA WILL BE READ IN FROM FILE VNAMS; MNP' 
LOCATE 14, 15: INPUT 'ENTER RETURN TO PROCEED OR A POSITIVE NBR TO ABORT'; RET 
IF RET > 0 THEN EXIT SUB 
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OPEN VNAMJ • MNP' FOR INPUT AS #2 

FOR I — I TO 44 

INPUT #2, wbsc(3, I), wbscc(I) 

NEXT I 

FOR I - I TO 12: INPUT #2, XP(J): NEXT l 
FOR I - 1 TO 53 INPUT #2, VX(I): NEXT I 
FOR I - I TO 39: INPUT #2, MCF(T): NEXT I 
FOR I - 1 TO 29: INPUT 02, XCF(I): NEXT I 
FOR I - 1 TO 33 

INPUT #2, W(I), SCO. MP(T), OPH(I) 

NEXT I 

INPUT #2, SMP 

CLOSE 02 
END SUB 

SUB DISPERS 

SWBS J( 1 ) - ' Structural’: SWBS$<2) - 'Fuel/Oxid Tanki* SWBSS(3) - 'Tbermal/Tites' : SWBSJ(4) = 'Propulsion' 

SWBSJ(5) - 'Power^lccmcal-: SWBS$(6) - ‘Mechanical Sys‘: SWBSS(7) - ■Avionics 1 : SWBSJ(8) - 'ECS/Life Support' 
SWBSS<9) - ‘Auxiliary Systems' 

BK37: X - 0 
CT.S : COLOR 15 
PRINT TAB(I); ‘VEHICLE IS 
COLOR 1 1 : PRINT VNAMJ 

COLOR 10: PRINT TAB(20); ‘MAINTENANCE SIM MODEL (MSM) ORG PERSONNEL- 
PRINT : COLOR 13 

IF FLAG - 1 THEN PRINT TAB{5), 'Total personnel as computed from RAM model will be used far coating’ 

IF FLAG - 0 THEN PRINT TAB(5); ’Total personnel computed by this display will be used for costing’ 

PRINT : COLOR 12 

PRINT TAB(30); 'NBR CREWS'; TAB(42); ‘AVG CREW'; TAB(55), ‘TOTAL NBR' 

PRINT TAB(l); ’NBR'; TAB<5); 'SUBSYSTEM', TAB(30); 'ASSIGNED'; TAB(45); 'SIZE'; TAB<55); 'PERSONNEL- 
PRINT : COLOR 14 
FOR I - 1 TO 9 

X = X t INT(CZ(I) • SC(I) + .9999) 

PRINT TAB(l); I; TAB(5); SWBSKI); TAB(35); CZ(I); TAB(45); SC(I); TAB(55); INT(CZ(T) * SC(I) + .99999) 

NEXT I 

PRINT TAB(l); '10‘; TAB(5); ‘SCHED MANPWR'; TAB<55); CZ(I0) 

COLOR 9: PRINT : PRINT TAB(5); ’TOT ORG MAINT PERS- direct labor'; TAB{55); X f CZ<10) 

TX — X 1 CZ(10) 

IF FLAG - 0 THEN LOCATE 22, 1 : COIOR 1 1 ; PRINT 'note When entering crews from the simulation model, scheduled manpower’ 
IF FLAG ^ 0 THEN PRINT 'should be act to zero since they are accented for is part of the crew. ' 

IF FLAG - 0 THEN 
COLOR 3 

INPUT ‘ENTER NBR FOR CHANGE - else enter return ’ , nbr 
IF nbr - 0 THEN GOTO XS 

IF nbr < 10 THEN INPUT ‘ENTER NBR OF CREWS ASGN'; CZ<nbr) 

IF nbr - 10 THEN INPUT 'ENTER THE NBR OF SCHED MAINT PERS'; CZ(nbr) 

GOTO BK37 
END IF 

XS: COLOR 13: INPUT ‘Do you wish to change the basis far costing- Y/N'; ANSI 
IF ANSS - ‘Y* THEN FLAG = 1 FLAG: GOTO BK37 


END SUB 

SUB DRIVERS 
ia - 1: ib = 16 
BKI; CLS : COLOR 10 
PRINT TAB<I); ‘VEHICLE IS \ 

COLOR 1 1 : PRINT VNAMJ, 

COLOR 10: PRINT TAB(35); * DESIGN/PERFORMANCE VARIABLES PRINT 
COLOR 14; PRINT TAB<5); 'Obtained from or computed from RAM input/output* 

COLOR 5: PRINT T AB(5) , ‘currently not used in OAS coating' 

IF ia = 31 OR ia =■ 41 THEN COLOR 12: PRINT TAB{5); 'requires updatt-not obtained from RAM' 
PRINT : COLOR 1 1 

PRINT TAB(I); 'NBR'; TAB(5); 'VARIABLE', TAB(47); 'VALUE' 

FOR I = ia TO ib 

IF I - 14 OR I - 20 OR (I > 21 AND I < 32) OR I = 43 THEN COLOR 5 ELSE COLOR 14 
IF I - 21 OR I - 32 OR I - 37 OR I - 40 OR I - 44 OR I - 51 OR I > 52 THEN COLOR 12 
PRINT TAB(l); I; TAB<5); VX$(I ); TAB(45); 

PRINT USING '#######*; VX(I) 

NEXT I 
COLOR 3 

PRINT : INPUT 'ENTER NBR FOR CHANGE - else enter return \ nbr 

IF nbr - 0 THEN GOTO SKI 

INPUT 'ENTER NEW VALUE ', VX(nbr) 

GOTO BKI 


C-7 



SKI: IF ib - 16 THEN is - 17; ib - 30: GOTO BK1 
IF ib - 30 THEN U - 31 ib - 40: GOTO BK1 
IF ib - 40 THEN ia - 41: ib - 53: GOTO BKI 


END SUB 
SUB FCONST 


CON: CLS COLOR 10 
PRINT TAB(I); ’VEHICLE IS \ 

COLOR 1 1 : PRINT VNAMS; 

COLOR 10: PRINT TAB(30); ’FACILITY CONSTRUCTION COSTS’: PRINT 
PRINT TAB(5); ’Note: all costs should be in 1993 year dollars' 

PRINT : COLOR 1 1 

PRINT TAB{I0): ’NBR’, TAB(20); ’FACILITY’; TAB(50); ’COST’ 

PRINT : COLOR 14 
FOR I = I TO 16 

COLOR 14: PRINT TAB(IO); I; TAB{20); F$(I); TAB(50); 

COLOR 13: PRINT USING ’$ ####’, FC(1) 

NEXT! 

COLOR 3 

PRINT : INPUT ’ENTER NUMBER TO CHANGE ’, nbr 

IF nbr > 0 AND nbr < 17 THEN INPUT ’ENTER NEW VALUE FC(nbr) GOTO CON 
END SUB 

SUB INFBA 

1 This subroutine moves the base year from 1993 to any year after 1993. 

’ It uses the NASA inflation indicics from FY 1991 , Code BA NASA New Start 
’ Inflation Index--(actuals from 1991). 

TNFB = 1 

CT - XP(5) - 1993 

CT7 - XP(7) - 1993 

FOR I - 1 TO CT2 + XP{4) 

IF I < — 7 THEN infvU) - TNFf(I) ELSE infv(I) - XP(9) 

NEXT I 

FOR I ■= 1 TO CT ‘compute base yr inf factor 

INFB - INFB * infv(I) 

NEXT 1 

CT3 - XP(7) - XP(5) ‘compute beddown yr inf factor 
INFBD - INFB 

FOR I - CT f 1 TO CT + CT3 
INFBD - INFBD * irfv(I) 

NEXT I 


INFLC - INFBD ‘compute LCC inf fac 

FOR I - CT f CT3 f 1 TO CT2 t XP(4) - 1 
INFIX - INFLC • infv(T) 

NEXT I 

AVTNF - INFIX! “ (1 / XP(4)) 'geometric «vg iof rate over life cycle 
FV - ((I + AVTNF) * XP(4) - 1) / AVINF ‘future value factor for LCC 


IF XP(6) - 1 THEN inx - INFB ELSE inx - INFBD 
IF XP(6) - 1 THEN lef - XP(4) ELSE lef - FV 
IF XP(6) - l THEN year - XP(5) ELSE year - XP<7) 

IF XP(6) - 1 THEN inxf - 1 ELSE ioxf - (I + AVINF) ' XP(4) 
IF XP(5) - 1993 THEN inx - I 


END SUB 
SUB IN IT 

'INITIALIZATION SUBROUTINE 

X( 11) - 144 ’ manh/ mo factor 

FLAG = I 'USE RAM MANPWR FOR COSTING 

FOR I =1 TO 2 

FOR j - l TO 60 
wbs$d, j) = ’ ’ 

NEXT j 
NEXTI 

FOR I = I TO 57 ’ Vehicle WUC 

READ wb«S(2, I) 

NEXTI 

FOR 1 = 1 TO 42 ’ NASA WBS (CES) 

READ wbsS(l. I) 
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NF.XT I 

FOR I - I TO 12 

READ PSO), XP(1) ' SYSTEM PARAMETERS 
NEXT 1 

FOR I - I TO 29 ’COST FACTORS 
READ CFS<T), XCF(I) 

NEXT I 

FOR I - I TO 39 

READ MFJ{[), MCF(I) ’ MISC favors 
NEXT r 

FOR j -*■ 1 TO 3 

FOR I = 1 TO 42 

READ A (I, j), B(I, j) * PWR FUNCTION PARAMETERS 
NEXT r 
NEXT j 

FOR I - 1 TO 34 

CF(I) - I : LCS(I) - 9: QTY(I) - I 'COMPLXTY FAC. LEARNING CURVE SLOPE, QUANTITY 
NEXT I 

CF(34) - 9: QTY(34) ^ 4 


FOR I - I TO 53 

READ VX*I), VX(I) ’ DESIGN/PERFORMANCE VARIABLES 
NEXT I 

FOR I - 1 TO 16 

READ FS(I). FC(I) 'FACILITY COSTS 
NEXT I 

FOR I - 1 TO 16 

READ HYP$(1) ’HYPF.R VELOCITY WBS 
NEXT I 

FOR 1 = 1 TO 15 

READ wb$(I) PREVAIL model 
NEXT I 

FOR I = I TO 9 

READ OSCl4(l) ‘OAS COST CATEGORIES 
NEXT! 

loci - 0 
thn - 0 

INFBDd - 1 .381820452# 'inffetion from 1993 to base year of 2000 
INFB - I! 'inflation to but year 

INFIX! -= 2 049426384# 'inflation from 2000 to 2015 - life cycle of vehicle 

FOR I = 0 TO 7 
READ INFf(I) 

NEXT I 

’ Input the WBS costs 1 -default costs, 2 ^computed costs. 

FOR I - 1 TO 42 

READ wbsc(l, I) 
wbac(3, I) - wbsc(l, I) 

NEXT I 

FOR I - I TO 22 
wbscc(I) - 1 
NEXT I 

wbacc(5) - 2: wb*x(6) - 2: wbacc(8) - 2 
FORI = 11 TO 14 
wbacc(I) ■= 2 
NEXT I 

FOR I = 23 TO 39 

wbscc(I) - 2 
NEXT! 

FOR I - 40 TO 42 : wbsccfl) = 1 : NEXT I 


FOR I - I TO 9: READ OMO$<I): NEXT I T org maint overhead 

XP(II) = 1 2 * (XP(7) - 1 950) ‘initi lire TFF since 1950 in moa 
IF year - 0 THEN year - XP(4) f XP(7) 


END SUB 
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SUBTNPT 

tp2: CLS : COLOR 7 

LOCATE 6, 28: PRINT ’DATA INPUT MF.NU* 

PRINT ; PRINT TAB(20), 'CATEGORY NBR' 

PRINT : COI OR 10 

PRINT TAB(20), 'SYSTEM PARAMETER TABLE I" 

COLOR 14 

PRINT TAB(20) , 'UPDATE WBS COSTING TABLE 2* 

COLOR 10 

PRINT TAB(20), "COST FACTORS & RATES 3" 

PRINT TAB<20); 'DESIGN /PERFORMANCE VARIABLES 4" 

PRINT TAB(20); 'MISC FACTORS 5" 

PRINT TAB(20); "FACILITY CONSTRUCTION COSTS 6" 

PRINT TAB(20); "DISPLAY SUBSYSTEM WEIGHTS 7" 

PRINT TAB<20); 'INPUT NBR ORG CREWS (SIMULATION) 8" 

PRINT TAB(20); 'SOFTWARE COST DRIVERS V 

'PRINT TAB(20); "SUBSYSTEM PARAMETER TABLE 7* 

PRINT : COLOR 2; LOCATE. 20, 20: INPUT "ENTER NUMBER nbr 
IF nbr — 0 THEN EXIT SUB 
IF nbr = I THEN CALL SYS 
IF nbr - 3 THEN CALL CST 
IF nbr - 4 THEN CALL DRIVERS 
IF nbr - 7 THEN CALL WGT 
IF obr - 6 THEN CALL SUBSYS 
IF obr - 6 THEN CALL FCONST 
IF obr = 2 THEN CALL WBSS 
IF obr — 5 THEN CALL MISC 
IF obr - 8 THEN CALL DISPERS 
G0TOtp2 
END SUB 

SUB MAIN 

TPI : CLS : COLOR 12 

PRINT : PRINT TAB(20), "LIFE CYCLE COST MODEL' 

PRINT : PRINT TAB(22); "VEHICLE IS 
COLOR 1 1 : PRINT VNAM$ 

COLOR 15: PRINT : PRINT TAB<25); "MAIN MENU": COLOR 14 
PRINT : PRINT TAB(I7); 'OPTION NBR' : 

COLOR 3: PRINT 

PRINT TAB(I5), "INPUT FROM RAM MODEL I" 

PRINT TAB(15); "GO TO INPUT MENU 2' 

COI OR 10 

PRINT TAB(I5); "DISPLAY RESULTS 3" 

COLOR 3 

PRINT TAB( 15); "REPORT GENERATOR 4" 

PRINT TAB(15); "SAVE INPUT VALUES 5" 

PRINT TAB(15): "READ INPUT DATA FROM FILE 6" 

PRINT TAB< 15); "CHANGE VEHICLE/ FILE NAME 7’ 

PRINT TAB( 15); "TERMINATE SESSION 8" 

COLOR 2 

IOC ATE 22, 15: INPUT "ENTER SELECTION ", nbr 

IF nbr -1 THEN CALL RAMI 
IF nbr -= 2 THEN CALL INPT 
IF nbr - 3 THEN 
CALL DRIVER 
CALL DISMENU 
END IF 

IF nbr - 4 THEN 
CALL DRIVER 
CALL REPORT 
END IF 

IF nbr = 5 THEN CALL SAVE 
IF nbr - 6 THEN CALL DAT AIN 
IF nbr = 7 THEN GOSUB NAM 
IF nbr - 8 THEN GOTO BT1 
GOTO TPI 

NAM: CLS : COLOR 10 

PRINT : PRINT TAB(10); "CURRENT LCC INPUT FILES': PRINT 
FILES ■MNP" 

PRINT : COI OR II 

LOCATE 10, 20: PRINT "CURRENT VEHICLE/FILE NAME IS 
COLOR 7; PRINT VNAM$ 

COLOR 10: LOCATE 12, 20: PRINT 'ENTER NEW NAME "; 
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COLOR 1 1 INPUT ”, VNAMS 
RETURN 


BTI CLS : COLOR 3 

LOCATE 10, 20: INPUT ’DO YOU WISH TO SAVE INPUT VALUES - (Y/N)\ ANSS 
IF ANSS - -Y- OR ANSS - V THEN CALL SAVE 
LOCATE 19, 20: PRINT ’SESSION TERMINATED* 

END 

END SUB 

SUB MISC 
10 - l: IE - 15 
FC1: CLS : COLOR 10 
PRINT TAB(I); ’VEHICLE IS 
COLOR 1 1 : PRINT VNAMS; 

COLOR 10; PRINT TAB{30); ’MISCELLANEOUS FACTORS' 

COIOR 12; PRTNT TAB<5); ’requires verify /update* 

COLOR 14: PRINT TAB(5), ’computed from RAM input/output* 

IF IO - 16 THEN COLOR 5 : PRINT TAB(5); ’currently not used’ 

PRINT : COLOR 1 1 

PRINT TAB(5); 'NBR'; TAB<15); ’CATEGORY’; TAB(65); ’VALUE* 

PRINT 

FOR I - 10 TO IE 

IF I ^ 35 OR I - 37 OR I - 57 THEN COLOR 14 ELSE COLOR 12 

IF I = 27 THEN COIOR 5 

PRINT TAB(5); I; TAB{15); MFS(I); TAB(60), 

PRINT USING ’#########.##’; MCF(I) 

NEXT I 
COLOR 3 

LOCATE 23, 20: INPUT ’ENTER NUMBER TO CHANGE \ nbr 

IF nbr > 0 THEN LOCATE 24, 20: INPUT ’ENTER NEW VALUE ’, MCF(nbr); GOTO FC1 
IF JO = 1 THEN 10 = 16: IE = 30: GOTO FC1 
IF 10 = 16 THEN IO = 31: IE = 39: GOTO FC1 


END SUB 
SUB RAMI 

’MODULE TO INPUT DATA FROM RAM MODEL 
CLS : COLOR 11 

PRINT : PRINT TAB(IO). ’INPUT FILES from RAM model’: PRINT 
FILES ’•.CST’ 

PRINT COLOR 12 

PRINT TAB(IO); ’INPUT DATA WILL BE READ FROM VNAMS; ’ CST* 

COLOR 10 

LOCATE 14, 10: INPUT ’ENTER RETURN TO PROCEED ELSE ENTER A POSITIVE NBR \ NUM 
IF NUM > 0 THEN GOTO BT5 
VNS - VNAMS 
NSP - 0: NTC - 0 

OPEN VNS I ’.CST* FOR INPUT AS f I 
INPUT #1, VNS 
FOR I = l TO 33 

INPUT #1 , W(T). S(I), MP(I), OPH(T), CA(I) 

NSP - NSP f S<I) 

NTC - NTC I MP(I) 

NEXT I 

INPUT #1, SMP, VX{50), XP(3), VX(49) * SCH MNPW.VEH TAT.HRS/MSN.REMOVALS/FLIGHT 

FOR I - I TO 13: INPUT #1, V(I): NEXT I 

FOR I = l TO 25: INPUT 11, X(I): NEXT I 

FOR I - 0 TO 5: INPUT#], X: NEXT I 

INPUT #1, AREM, TMA 

INPUT #1, TME, TMF 'FT AND LBR MANPOWER 

FOR I = I TO 9: INPUT #1 , CZ(I), SC(T) NEXT I ’nbr crews asgn & «vg crew sire 
PRINT : PRINT : PRINT TAB< 10); ’DATA INPUT FROM ’; 

COLOR 10: PRINT VNAMS; * CST’ 

CLOSE #1 
CZ(IO) = SMP 
MCF(37) - NSP 

MCF(35) - INT(NTC i SMP 4 .5) 

XP(2) = X(15) ’FUGHTVYR 

AVWT - 0 

FOR I = 19 TO 24: AVWT = AVWT t W(I): NEXT I 
FOR I = 1 TO 5: VX(I) - X(I): NEXT I 
FOR I = 1 TO 12: VX(I + 5) « V(I): NEXT I 
IF AVWT > VX(46) THEN VX(47) = AVWT - VX(46) 

IF AVWT < - VX(46) THEN VX(46) - AVWT: VX{47) - 0 
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VX(52) - .8 * VX(49) * XP(2) 

VX(45) - VX(3) t VX(4) NBR SEATS » BUNKS 

COLOR 1 1 : IvOCATF. 22. 10: INPUT 'ENTER RETURN ' . RET 


CALL SECOND 

BT5: END SUB 

SUB SAVE 
CLS : COLOR 10 

PRINT : PRINT TAB(IO); "CURRENT LCC INPUT FILES’: PRINT 
FILES '* TNP- 
PRINT : COIXtt 1 1 

IXJCATF. 12, 15: PRINT "INPUT DATA WILL BE SAVED IN FILE VNAMJ; MNP' 

LOCATE 14, 15: INPUT 'ENTER RETURN TO PROCEED OR A POSITIVE NBR TO ABORT'; RET 
IF RET > 0 THEN EXIT SUB 
OPEN VNAM$ t MNP* FOR OUTPUT AS #2 
FOR I - I TO 44 
WRITE #2, wbsc(3, 0, wbscc(I) 

NEXT I 

FOR I - 1 TO 12: WRITE 02 , XP(I): NEXT I 
FOR I - I TO 53: WRITE 02 , VX(I): NEXT I 
FOR I - 1 TO 39: WRITE 02 , MCF(I): NEXT! 

FOR I = I TO 29 : WRITE 02 , XCF(I): NEXT I 
FOR I = 1 TO 33 

WRITE #2, W(1), S(l), MP(I), OPH(I) 

NEXT I 

WRITE 02 , SMP 
CLOSE 02 
END SUB 

SUB SUBSYS 
ia — 1 : ib — 16 
BK11: CLS : COLOR 10 
PRINT TAB(I); ’VEHICLE IS *; 

COLOR 1 1 : PRINT VNAMS; 

COLOR 10: PRINT TAB(35); 'SUBSYSTEM PARAMETER TABLE * 

COLOR 10: PRINT TAB(40); 'LRNING CURVE' 

PRINT TAB(I); "NBR"; TAB(5); 'SUBSYSTEM*; TaB( 30); 'COMPLEX FAC'; TAB(45); 'SLOPE'; TAB(55); 'QUANTHY' 
PRINT : COLOR 14 
FOR I - i* TO ib 

PRINT TAB<1); I; TAB(5); wbs$(2, I); TAB(35); CF(I); TAB(45); LCS(I); TAB(55); QTY(T) 

NEXT! 

COLOR 3 

PRINT : INPUT 'ENTER NBR FOR CHANGE - else enter return \ nbr 
IF nbr - 0 THEN GOTO 5K 

INPUT 'ENTER NEW FACTOR AND SLOPE'; CF(nbr), lCS(obr) 

GOTO BK1 1 

SK: IF ib - 16 THEN ia = 17: ib - 34: GOTO BK II 


’ other learning curve far RAD or Production 

TA - 1: IB = 16 
■BK2 2 : CLS : COLOR 10 

’PRINT TAB(l); 'VEHICLE IS \ VNAM$; TAB<35); 'SUBSYSTEM PARAMETER TABLE ' 

’COLOR 11: PRINT TAB(40); 'INNING CURVE' 

’PRINT TAB(l); 'NBR'; TAB{5); 'SUBSYSTEM'; TAB(30), 'COMPLEX FAC*; TAB(45); 'SLOPE'; TAB(55); 'QUANTITY 
’PRINT : COLOR 14 
’FOR i - IA TO EB 

* PRINT TAB(I); i; TAB(5); WBS^wbs.i); TAB{35); CF(i); TAB(45); LCS(t); TAB<55); QTY(i) 

’NEXT i 
COLOR 3 

’PRINT : INPUT 'ENTER NBR FOR CHANGE - else enter return’, NBR 
’IF NBR - 0 THEN GOTO SK2 

’INPUT 'ENTER NEW FACTOR AND SLOPE'; CF(NBR), LCS(NBR) 

’GOTO BK22 

‘SK2: IF IB - 16 THEN IA = 17: IB = 34: GOTO BK22 


END SUB 
SUB SYS 

tp3: CLS : COLOR 10 
PRINT TAB(I); 'VEHICLE IS 
COLOR 1 1 : PRINT VNAMS, 

COLOR 10: PRINT TAB(30); 'SYSTEM PARAMETERS - INPUT SCREEN" 
PRINT : COLOR II 
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C01X3R 12; PRINT TAB(5); ’requires update" 

COLOR 14: PRINT TAB(5); 'computed from RAM input/output or other input parameters* 

COLOR 5: PRINT TAB(5); "used in RDT&E costing only': PRINT 

COLOR II: PRINT TAB(IO); "NBR", TAB(20), 'PARAMETER'; TAB(50), 'VALUE' 

PRINT 

FOR I - 1 TO 12 

TF I - 8 THEN COLOR 5 Et.SE COIOR 1 2 
IF I < 4 OR I - II THEN COLOR 14 
PRINT TAB(IO); I; TAB{20), P$(I); TAB(50), 

IF I - 9 THEN 

PRINT USING %' , XP(I) * 100 

ELSE 

PRINT USTNG ’#*###’, XP(T) 

END IF 
NEXT I 
COLOR 3 

LOCATE 22, 10: INPUT ’ENTER NUMBER TO CHANGE *, nbr 
IF nbr - 6 THEN XP(6) - t - XP(6): GOTOtp3 
IF nbr - 1 2 THEN XP( 1 2) = 1 -XP(12): GOTOtp3 
IF nbr - 7 THEN XP(l 1) = 12 • (XP(7) - 1950) 

IF nbr < 0 THEN GOTO tp3 
IF nbr - 0 THEN GOTO BT2 
IF nbr — 9 THEN 

LOCATE 22, 10: COLOR 15: PRINT ’Enter percentage in decimal farm (8%^. 08).* 
END IF 

IF nbr - 10 THEN XP(10) = I - XP(10): GOTO tp3 

tpp: LOCATE 23, 20: INPUT 'ENTER NEW VALUE ", XP(nbr) 

IF XP(nbr) < 0 THEN GOTO tpp 
BT2: XFG - XP(10) 


END SUB 

SUB WBSS 

CLS : it - I: ib - 10 

FOR I - I TO 42: wbsc(l, I) - wbsc(3, I): NEXT I 
blc9: COLOR 14: PRINT TAB(20); 'Cost Element Structure' 

LOCATE 3, 55: COLOR 10: PRINT 'default*; 

COLOR 15: PRINT ' / '; 

COLOR 14: PRINT 'compute* COLOR 13 
PRINT 

COLOR II: PRINT 'nbr*; TAB{1I); 'WBS*. TAB{55); 'Cost [93 MS]' COLOR 10 
'if ia > 1 THEN PRINT 
ib2 - ib 

FOR I = ia TO ib 

IF I — 2 OR 1-4 OR I ■= 5 OR I = 12 OR I - 13 THEN PRINT 
1FI- 24 0RI-360R1>39 THEN PRINT 
PRINTTABII); I; TAB(8); wbs$(l , I); TAB(55), , 

IF wbscc(I) = 2 THEN COLOR 14 
IF wbscc(I) - 1 THEN COLOR 10 
PRINT USING ’ ###### . ###' ; wbac( 1 , I) 

COLOR 10 
NEXT I 

COLOR 10 
IF ib - 10 THEN 

wbb COLOR II : PRINT : INPUT 'Enter number to change or RETURN... \ RET: COLOR 9 
IF RET < ia AND RET > ib AND RET < > ASC(CHRJ(t3)) GOTO wbb 
IF RET > - ia THEN 

INPUT "Enter 1 to toggle or 2 to eater new default value ', tog 
IF tog = I THEN 

IF wbacc(RET) - I THEN 
wbacc(RET) - 2 

ELSE 

wbscc(RET) - I 

INPUT 'Enter the default value wb*c(l , RET) 

END IF 
CLS 

GOTO 1*9 

ELSE 

INPUT ’Enter the new defailt value ’ , wbsc( l , RET) 

CLS 
END IF 
GOTO bk9 

ELSE 

CLS 
END IE 

ia = 11: ib = 22: GOTO bk9 
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END IF 

IF ib - 22 THEN 

wbbl : COLOR 1 1 : PRINT INPUT 'Enter number to change or RETURN, ", RET COLOR 1 1 

IF RET < ia AND RET > ib AND RET < > ASC(CHR$( 1 3)) GOTO wbbl 
IF RET > - ia THEN 

INPUT * Enter 1 to toggle or 2 to enter new default value, \ tog 
IF tog - 1 THEN 

IF wb see (RET) - 1 THEN 
wbscc(RET) - 2 

ELSE 

wbscc(RET) - 1 

INPUT "Enter the defaih value ", wbsc(l , RET) 

END IF 
CLS 

GOTO blc9 

F.I>SE 

COLOR 1 1 : INPUT 'Enter the new default value ", wbsc(l , RET) 

CLS 

GOTO bk9 
END IF 

ELSE 

CLS 
END IF 

ia - 23: ib - 34; GOTO bk9 
END IF 

IF ib - 34 THEN 

wbbl 2: CO!X)R 1 1 : PRINT ; INPUT "Enter number to change or RETURN, , ’ , RET: COLOR 2 
IF RET < ia AND RET > ib AND RET < > ASC(CHR$(13)) GOTO wbbl2 
IF RET > - ia THEN 

COLOR 1 1 ; INPUT "Enter 1 to toggle or 2 to enter new default value. ", tog 
IF tog - 1 THEN 

IF wbsce(RET) - 1 THEN 
wbacc(RET) - 2 

EI£E 

wbscc(RET) - 1 

INPUT "Enter die defailt value ", wbsc(I, RET) 

END IF 
CLS 

GOTO bk9 

ELSE 

COLOR 1 1 : INPUT "Enter the new default value ", wbsc(I , RET) 

CLS 

GOTO bJc9 
END IF 

El.SE 

CLS 
END IF 

ia _ 35 ; jb - 42: GOTO bk9 
END IF 


IF ib - 42 THEN 

wbb2: COLOR 1 1 : PRINT : INPUT 'Enter number to change or RETURN. . . RET: COLOR 2 
IF RET < ia AND RET > ib AND RET < > ASC(CHRS(13)) GOTO wbb2 
IF RET > = ia THEN 

COLOR 1 1 INPUT "Erner I to toggle or 2 to enter new default value. ", tog 
IF tog - 1 THEN 

IF wbscc(RET) - I THEN 
wbscc(RET) - 2 

ELSE 

wbscc(RET) - I 

INPUT "Enter the defaih value ", wb*c(l , RET) 

END IF 
CLS 

GOTO bk9 

ELSE 

COLOR 1 1 : INPUT "Enter the new defaih value " , wbac(l , RET) 

CLS 

GOTO bk9 
END IF 

ELSE 

CLS 
END IF 
END IF 

PRINT : COLOR 13 

PRINT TAB(l); "TOTALS"; TAB(45); AMMC; TAB(65), TMMC 
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PRINT : COLOR 3 
FOR I - 1 TO 42 

wbsc(3, I) - wbsc(l, I) 'save original default values 
NEXT I 
END SUB 

SUB WGT 

CI-5 COLOR 10 

PRINT TAB(5); 'VEHICLE IS 

COLOR 1 1 PRINT VNAMS; 

COLOR 10: PRINT * SUBSYSTEM WEIGHT TABLE - •; 

COLOR 12: PRINT 'DISPLAY ONLY* PRINT 

COLOR 9: PRINT TAB<5); 'Note: weights arc initialized from RAM model* 

PRINT : COLOR 1 1 

PRINT TAB(10); ’NBR", TAB(20); 'SUBSYSTEM'; TAB(50), ’WEIGHT' 

COLOR 14 
FOR I = 1 TO 33 

IF W(l) - 1 THEN GOTO SKP 

PRINT TAB( 10); I; TaB( 20); wbs$(2, I); TAB(50); 

PRINT USING ’#####'; W(J) 

IF I - 15 THEN PRINT : INPUT 'ENTER RETURN ", RET 

IF I — 15 THEN CLS : PRINT TAB(10), 'NBR*, TAB<20); ’SUBSYSTEM", TAB(50); 'WEIGHT': PRINT 
SKP: NEXT I 

COLOR 7: PRINT : PRINT TAB(10); 'TOTAL DRY WEIGHT", 

COLOR 12: PRINT TAB(50); VX(1) 

COLOR 3 

PRINT : INPUT "ENTER RETURN ", RET 


END SUB 



Module LCC2.BAS 


DECLARE SUB OPS 0 
DECLARE SUB ORG 0 
DECLARE SUB TOT () 

DECLARE SUB INFBA () 

DECLARE SUB INFBF.D () 

DECLARE SUB COMP () 

DECLARE SUB totdd Q 
DECLARE SUB MANPOWER () 

DECLARE SUB SOFTWARE () 

DECLARE SUB FACILITY () 

DECLARE SUB PWRCER () 

DECLARE SUB DRIVER () 

DECLARE SUB HYPER () 

DECLARE SUB OS Q 
DECLARE SUB totdd 0 
DECLARE SUB costo () 

’NASA LANGLEY RESEARCH CENTER ' 

’LIFE CYCLE COST MODEL developed by Univ of Dayton 
’Dr. Fbeling and Mr Beasley 

’save as LCC2.BAS **** COMPUTATIONAL MODULE 

COMMON SHARED VNAM$, SMP, TME, TMF, SDE, STE £ SUP. TW, AF, FLCC, INFB, INFBDd, INFLC 
COMMON SHARED TECC, TFSC, MAT, CNT, OTH. PER, FAF, AMMC, TMMC, inx, year 
COMMON SHARED MM, TDSC, ADJ, INST, INTEG, RESO, APPL, CPLX, UTIL, PLTFM, WEIGHT 
COMMON SHARED vs$, selv, wbs, totd, AVWT, kf, inxf, TOMO, Ictot, TPR 

COMMON SHARED SI, RS, NC, RC, NTMWC, RIMWC, RGSE, NOSE, Nl, N2, N3. N4, MI, M2, M3, M4, TI, T2, SI, S2, NII^M, RIL5M 
COMMON SHARED AC, CS. HYPS, PRVSl, PRVS2, SEC. RTITLES, OVH, XFG. Dl, TX, FLAG 
DIM SHARED C7,(I0), SC(10), CA(33), SWBS$<10) 

COMMON SHARED CZO, SCQ, CAO, SWBSS() 

DIM SHARED wbs$(2, 60). P$<!5>, XP(25), X(30), V(15), WBS(I5) 

DIM SHARED W(35), S(35), MP<35), CF*30), XCF(30), AMC(2, 50), MC<2, 50), ED(5), DC(10, 10) 

DIM SHARED A(50. 3), B(50, 3). DE(I6), TE(16), UP(16), WT(I5), HYP*16), rncs(i0) AS SINGLE 
DIM SHARED CF<35), lcs<35), QTY(35), VXS(60), VX(60), mh(20), rd<l0), OSCL$(10) 

DIM SHARED ESQ(20), FC(20), F$(20), FCC(20), mhc(20). rdc(10), istn(20, 10), !NFf(10) 

DIM SHARED TOTH(IO), TOTV(IO), wbsc(4, 50), wbscc(50), MFS(40), MCF{40) 

DIM SHARED HP(10), HH(10), HS(IO), HR(10), HD(10), infv(50), OPH(35), OMO(10), OMOS(IO) 

COMMON SHARED HP(), HH(), HS(), HRQ. HDO 
COMMON SHARED wbs$0, PH$0, P$0, XPQ> X(), V0. WB$0 
COMMON SHARED W0, SO, MPO, CF$0, XCF0, AMC0, MCO, IDO, DCO 
COMMON SHARED A0, B0, DEO, TE{), W0. WTO, HYP$0 
COMMON SHARED CFO, M). QTYO, VXSQ, VXO, tnh(j, rdO, OSQ^O 
COMMON SHARED FSQO, FC0, ESO, ECC0. mbc(), nfcO, ismO. INFfO 

COMMON SHARED TOTH0, TOTVO, wbscO, wbsccQ, MFSO, MCF0, irfv(), OPHO, OMOO, OMO$0 
SUB COMP 

’ bask computational module for computing at the NASA CES (WBS) level 

aa93 - inx * 1 .914 ’80 TO 93 inx * L 390857677 if 'inf fac to move from fy85 to fy93 to base yr for hypervel 

’ 1.6 estimated inf fac from fy77 to fy85 

prvinx - 2.501 

’2. 3,2 MAINTENANCE 

’2.3.2. 1 REFURBISHMENT - prevail SFY77 

CWS - .02 * XCF(3) 1 .05 * XCF(24) ’ assume MCF(27)=1 

CRE = , 1 * VX(5) * XCF(25) * isumme MCF(27)~l 

'CSRM - 17.377254# • VX<46) / 10 ‘ 4 "??check PI in eq 

'CRSRM - MCF(27) • (.1 * XCF(2) +• .5 * CSRM) v .1 * XCF(26) 

wbsc(2, 13) - prvinx * (CWS + CRE) 

wbsc(4, 13) kf * wbsc(wbscc(I3), 13) 

UR - XP(3) * XP(2) / XP(1) ‘vehicle util rate - hrs/yr per veh for HVL 

*2. 3. 2. 3 DEPOT MAINTENANCE bypervelocily SFY85 

' personnel — 

HP(1) - 5466 • (UR) * . 17293 * VX(8) * .5389 

HP(2) - 1436.4 * VX(9) * .30068 * VX(33) * .42521 

HP(3) - 350.272 * VX(35) * .55731 * (VX(3) + VX(4)) ‘ 022272 

HP(4) - 4053 * VX(12) ‘ .64027 * VX(15) * 30348 

HP(5) - 256.191 * VX(1 1) *' l 2603 * (XP(3) * XP(2)) * .30284 

HP(6) - 32661.8 * VX(ll) * .3451 * VX(41) ' .70715 

HP(7) - 3938.44 *XP(3) * .36061 * VX(7) * .36541 

HP(8) - 5.65649 * VX( 2) * .97927 * XP(11) * .19409 

HP(9) - .0612697 * VX(39) ‘ 040297 * VX(18) * 6539 

’ hardware 

HH(1) - 33844.1 • VX(8) ‘ .40781 


C-16 



HH(2) - 939.794 * VX(2) * 66587 * VX(34> ‘ 60526 

HH(3) - 9.65239 * VX(35) * ,44168 * VX(36) * .39999 

HH(4) - 4.1221 * VX(47) " .38875 * VX(38) ' 2.8235 

HH(5) - 148.709 * VX(39) ' .93869 * VX(12) * .13678 

HH(6) - .738358 * VX(2) ‘ 2.1815 • VX<42) * .15009 

HH(7) - 196.918 * (VX(3) l VX(4)) * .0031839 * VX(7) * 69177 

HH(8) - .00321882# * VX(2) * 2.1661 * VX(44) * 34181 

HH(9) - 0560647 * VX(39) * 67061 * VX(2) * ,93312 

THH - 0: THP - 0 

FOR I - 1 TO 9 

HP(I) - aa93 * XP(2) * HP(I) / 1000000 
HH(I) - aa93 * XP(2) * HH(T) / 1000000 
THP - THP t HP(I) 

THH - THH l HH(I) 

NFXT I 

wbsc(2, 24) - (THP f THH) 

D1 - inx * XP(2) * VX(49) * MCF(5) * (MCF(13) * XCF(7) 4 XCF(26)) / 1000000 
[F XP(12) - 0 THEN wbsc(2, 24) - D1 
wbsc(4, 24) - lef * wbsc(wbscc(24), 24) 

‘2.3 2.4 MODIFICATIONS from Cost of Ownenhip Model 
wbsc(2, 25) - inx * 004494 • wbsc(wbscc(6), 6) 
wbsc(4, 25) - lef * wbsc(wbscc(25), 25) 

‘2. 3.2.5 VERIFICATION & CHECKOUT No longer used 
’Wbsc<4, 26) - lef * wbsc(wbscc(26), 26) 


1 2.3.3 LOGISTICS 
’ 2. 3. 3.1 SPARES - initial 

AMLS (JFY93) - hardware 

SI - inx * 0 - MCF(3)) * MCF(2) • MCF(37) • XCF(4) / 1000000 
HYPERVEL - (SFY85) 

HS(1) - 4.08905 • VX(8) * 1.4795 * VX(48) * 8881 
HS(2) - 1 .14042 • VX(18) * 1.0393 
HS(3) - .025 * wbsc(l, 6) / XP( 1 ) 

’ W(3) - 55860.45 *!!!!!!!!!!! 

HS(4) - 9675.31 * VX(47) * .78372 * (W(3) / VX(7)) * .37412 

HS(5) - 932.337 • VX(48) * 62003 * VX(12) ' .7465 

HS(6) - 3.1879 • VX(2) * 1.8749 • VX(48) * .8138 

HS(7) - 2.86158 * (VX(17) * (VX(3) 4 VX(4))) * .6701 • VX(12) * 1.0107 

HS(8) - 14.4453 * VX(48) * .72729 • VX(7) ‘ 6217 

HS(9) - .00514174# * VX(8) " 1.4795 • VX(48) * 8881 

THS - 0 

FOR I - 1 TO 9 

HS(T) - aa93 * HS(I) / 1000000 

THS - THS 4 HS(I) 

NEXT I 


’ recurring spares AMLS - ($FY93) 

RS - inx * XP(2) • VX(49) * MCF(4) * XCF(4) • MCF(2) / 1000000 
’ HYPERVEL - (SFY85) 

HR(I) - 1310.2 * UR ' .44611 * VX(8) * .42599 
HR (2) - 2877.49 * VX(9) * .9313 * VX(32) * 2789 
HR(3) - 10.6276 * VX(35) * 20537 * VX(36) ‘ .70128 
HR(4) - 10.799 * VX(12) * 89189 * VX(46) * 68652 
HR(5) - 115.132 * VX(39) * .9355 * VX(40) ‘ .95695 
HR(6) = .290026 * VX(2) * 2.3754 * VX(41) * .21649 
HR(7) - 57 1462 * XP(3) ‘ .29514 • VX(7) * 66886 
HR(B) - .0344495 * VX(44) A ,56086 * VX(2) * 2.1661 
HR(9) - .0938672 * VX(36) ‘ .57147 * VX(35) ‘ 36911 
THR - 0 
FOR I ^ 1 TO 9 

HR (I) - aa93 * XP(2) * HR(I) I 1000000 
THR - THR f HR(I) 

NEXT I 

IF XP(12) - 0 THEN wbsc(2, 26) = (ST + RS) ELSE wbsc(2, 26) - (THS f THR) 

IF XP(12) - 0 THEN wbsc(4, 26) - lef • RS f SI ELSE wtoc(4, 26) lef * THR 4 THS 
IF wbacc(26) - I THEN wbsc(4, 26) - lef • wbsc<I, 26) 

*2 3.3.2 EXPEND ABIJiS based upon Cost of Ownership model - tot EOQ 
TEOQ - -29.9 + .039 • (VX(49) * XP(2) * (1 - MCF<4)) * XCF(4)) 

IF TEOQ < 0 THEN TEOQ - 10000 
wbsc(2, 27) = inx * TEOQ / 1000000 
wbsc(4, 27) - lef • wbsc(wbacc(27), 27) 
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' 2,3 3.3 CONSUMABLES - AMI S 
NC -= 0 

FORI - 18 TO 23 

NC - NC I XCF(I) * MCF(I ♦ 1) 

NEXT T 

RC - NC * XP(2) I (VX(3) y VX(4)) * (XP(3) / 48) * XCF(L2) * XP(2> 

NC - 3 * NC 

NC - inx * NC / 1000000: RC - inx * RC / 1000000 
wbsc(2, 28) = (NC 4 RC) 

IF wbscc(28) - 2 THEN wbsc(4, 28) - NC i lef * RC EWE wbsc(4, 28) - icf * wbsc(l , 28) 

' 2.3 3.4 INVENTORY MANAGMENT & WAREHOUSE 
’ AMI-S 

NIMWC - MCF(37) * MCF(34) * MCF(25) * MCF(18) * XCF(8) 

RF.M - XP(2) * VX(49) 

RIMWC - REM * (MCF(5) + MCF(4» * MCF(18) * XCF(8) 

NIMWC - inx * NIMWC i 1000000: RIMWC - inx * RIMWC / 1000000 

wbsc(2, 29) - (NIMWC + RIMWC) 

wbsc(4, 29) - NIMWC 4 kf * RIMWC 

IF whscc(29) - I THEN wbsc(4, 29) = Icf * wbsc(1 , 29) 


‘ 2.3. 3. 5 TRAINING - AMLS 

N1 - VX(5I) * MCF(2) * (1 - MCF(3)) * XCF(9) * MCF(!5) * MCF(I7) + MCF(15) * MCF(17) * MCF(35) * XCF(5) 

N2 - XCF(9) * MCF(1 5) • MCF(32) * MCF(17) * VX(51) I MCF(17) * MCF(I5) * MCF(35) * XCF(5) * MCF(12) 

N3 - VX(52) * MCF(38) * MCF(2) * (I - MCF(3» * XCF(9) * MCF(I5) * MCF(7) 4 MCF(15) * MCF(7) * MCF(13) * XCF(7) 
N4 - XCF(9) * MCF(I5) * MCF(32) * MCF(7) * VX(52) * MCF(5) + MCF(7) * MCF(I5) * MCF(13) * XCF(7) * MCF(1 1) 

NI - inx * NI / 1000000: N2 - inx * N2 / 1000000 
N3 - inx • N3 I 1000000: N4 - inx * N4 / 1000000 
wbsc(2, 30) - (NI + N2 4 N3 + N4) 
wbsc(4, 30) - NI + kf * N2 4 N3 4 kf * N4 
IF wbscc(30) - 1 THEN wbsc(4, 30) - Icf * wbsc(l, 30) 

’ 2.3.3 6 DOCUMENTATION 
’ AMI ^5 

MI - VX(52) * MCF(2) * (1 - MCF(3)) * MCF(9) * XCF(27) * MCF(14) 

M2 - VX(52) * MCF(9) * XCF(13) * MCF(IO) * MCF(33) 

M3 - VX(52) * MCF(38) * MCF(2) • (1 - MCF(3)) * MCF(8) * XCF(27) * MCF(14) 

M4 - VX(52) * MCF(5) * MCF(2) • MCF(8) * XCF(13) * MCF(10) * MCF(33) 

Ml - inx * MI / 1000000: M2 - inx * M2 / 1000000 
M3 — inx * M3 / 1000000: M4 - inx • M4 / 1000000 
wbsc(2, 31) - (Ml 4 M2 + M3 4 M4) 
wbsc(4, 31) - Ml + Icf * M2 f M3 Hcf * M4 

1 HYPERVFX 

HD(1) = 401.439* VX( 1 8) ‘ .6394 

HD(2) - 214.6 * XP(ll) * .6664 * VX(I9) * 30877 

HD(3) - .01 * wbsc(l, 6) / XP(I) 

HD(4) - 142345 * (VX(46)) * .091207 

HD(5) - 38.7703 * VX(12) * 1.0292 

HD(6) - 741 81 * VX(10) * 95341 

HD(7) - 29077.9 * (VX(46)) * .18719 

HD(8) = 15.5429 * VX(45) * 70674 * XP(1 1) * 9167 

HD(9) - 517318 * VX(t8) " .6394 

THD - 0 

FOR I = 1 TO 9 

HD(I) - aa93 * HD(I) / 1000000 
THD = THD f HD(I): NEXT I 

IF XP(I2) - I THEN wbx(2, 31) * THD: wbsc(4, 31) = lcf*wbsc(2, 31) 

IF wbscc(3i) = 1 THEN wbsc(4, 31) = Icf * wbsc(l. 31) 


’ 2.3. 3.7 TRANSPORTATION 
’ AMLS 

T1 - XP(1) * VX(!) * MCF(26) * MCF(39) * XCF(I5) 

T2 - XP(2) * VX(1) • MCF(26) * MCF(28) * XCF(14) + XP(2) * VX(49) * (VX(1) / VX(53)) * MCF(26) * MCF(6) * XCF(10) 
T1 - inx * T1 / 1000000: T2 - inx * T2 / 1000000 
wbK(2, 32) - (T1 + T2) 
wbsc(4, 32) - T1 4 fcf * T2 

IF wbscc(32) - 1 THEN wbsc(4, 32) - Icf * wbsc(1 . 32) 

'2.3.38 SUPPORT EQUIPMENT AMLS 

SI - MCF(5) • (1 - MCF(3» * ((XP(2) * VX(50)) / (18 * 4 * 60)) * XCF(1 1) 

51 - SI f XCF(29) 4 MCF(36) * MCF(5) * VX(52) * MCF(l) 

52 - SI * MCF(29) 

SI - inx • SI / 1000000: S2 = inx * S2 / 1000000 

NGSE = (VX(1) / 178289) * MCF(2) * (1 - MCF(3)) * ((XP(2) - VX(50)) / (12 * 4 * 60)) * XCF(16) 
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RGSE - NGSF * MCF(29) 

NGSE - inx * NGSE / 1000000 
RGSE - inx * RGSE / 1000000 
GSE - NGSE \ RGSE 

wbsc(2, 33) - (SI f S2) * GSE 

wbsc(4, 33) - SI * Icf *S2 t NGSE t icf * RGSE 


' support equip -hypcrvcl 
HVLRSF. - 0: HVLNSE - 0 
FOR I - I TO 9 

r>C(I, 7) - (XP(1) / 4) * DC(I, 7) / 1000000 
DC(I, 9) - .2 * DC(I, 7) 

HLVNSE - HLVNSE t DC(I, 7) 

HI.VRSE - HLVRSE ^ DC(I, 9) 

NEXT! 

TF XP(12) - I THEN wbsc(2, 33) - HI.VRSE » HI.VNSE: wbsc(4, 33) - HLVNSE f Icf * HLVRSE 
IF wbscc(33) - I THEN wbsc(4, 33) - Icf * wbsc(l, 33) 

1 NAVAL FIXED WING 

’ wbsc(2,33) - .1 965 *(60*XP(3))\ 45 17/ 1000000 
’ 2.3.3 9 ILS MANAGEMENT 

NILSM - MCF(I6) * (SI ♦ NC f NIMWC + NGSE f N1 ♦ N3 f Ml * M3 t TI + SI) 

RTLSM - MCF(31) * (RS + RC I RIMWC J RGSE t N2 F N4 + M2 + M4 t T2 f S2) 

wbsc(2, 34) - NILSM t RH.SM 

wbsc(4, 34) - NTLSM f Icf * RIT.SM 

IF wbscc(34) - 1 THEN wbsc{4, 34) - Icf * wbsc(I, 34) 

* 2.3.4 SYSTEM SUPPORT 

* 2,3 4.1 SUPPORT STAFF 
’ HYPER VEL FY85 

AC - .21458 * VX(3) * 1.6422 * XP(!) * .89681 
CS - 21458 * (UR) * .50621 * XP(1) * 89225 
AC - aa93 * AC: CS - «93 * CS 
HYPS - 2 * (AC f CS) 

‘ PREVAIL 

PR VS I - .05 * wbsc(wbscc(12), 12) 

PRVS2 - .03 * XCF(17) 
wbsc(2, 36) - HYPS f PRVS1 
wbsc(4, 36) - Icf * wbsc(wbscc(36), 36) 


’2. 3. 4.3 COMMUNICATIONS (i-40) 

’ 2.3. 4. 4 BASE OPS - HYPER VEL FY85 (i=4I) 

’installation support from Cost of Ownership Model 
OPER - XP(1) * VX(3) f .8 * (XP(1) * VX(3)) 

I5PT - .156 * XCF(2) • 40 • 52 • (MCF(35) f OVH *- OPER) ’personnel cost 
MSPT - prvinx * 768 * (MCF(35) 1 OVH + OPER) ’hardwire costs 
TOSPT - inx • (ISPT + MSPT) ! 1000000 

’SEC - inx * .07 • (AC + CS) / 1000000 ’ security 

wbsc(2, 39) - 4 * TOSPT / 6 
wbsc(2, 38) - TOSPT / 6 

wbsc(4, 38) - Icf * wbsc(wbscc(38), 38) 
wbsc(4, 39) - Icf * wbac(wbscc(39), 39) 

’2 3.4.5 launch post launch cleanup not currently used 

’wbsc(4, 42) - Icf * wbsc(wbscc(42), 42) 

END SUB 


SUB DRIVER 

’ this module controls execution of the computations 


CALL INFBA 'compute inflation factors 


CALL PWRCF.R 
CALL FACILITY 
’CALL SOFTWARE 
CALL HYPER 
CALL OS 
CALL ORG 
CALL COMP 


'computes facility const 4 04S costs 
'currently not used 
’RAD/PROD costs 
'used for bypervel -partial 
’computes erg pen/ hardware 
’main computational module far 04S costs 
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CALL OPS 
CALL TOT 


’compute operations costs - must call PWRCER first 
'roll-up the WBS (CES) 


BTD: END SUB 


SUB FACILITY 

’ FACILITY COST EQUATIONS -Triplett 12/93 ENM 590 

FSQ(l) - *324775.9 4 2.5907 * VX(!) - 2383.25 * VX(2) i 55728.93 * SQR(X(2» - 24 015 * VX(6) 4 841.6 * SQR(VX(6)) - 1337.8 • VX( 1 3) 4 971073 * XP(I) - 816225 2/ XP( I) 
IF FSQ(1) < 35000 THEN FSQ< 1 ) - 35000 ' covered maintenance 
TF FSQ(1) > 200000 THEN FSQ(1) - 200000 

FSQ(2) - 56212 - 5756 * VX(8) - I 9567 * VX(7) 4 21.175 • VX{6) - 1046.75 * SQR(VX(6)) - 1629.14 * LOG(XP(I)) 

IF FSQ(2) < 30000 THEN FSQ - 30000’ general purpose maintenance shops 
IF FSQ<2) > 100000 THEN FSQ(2) - 100000 

FSQ(3) - 565089 - 4603 * VX(2) 4 .831 * VX(8) 4 2389 9 * XP(I) - 2167771 / XP(1) - 160572.7 * LOG(XP(I» 

IF FSQ(3) < 30000 THEN FSQ(3) - 30000’ avionics shops 
IF FSQ(3) > 100000 THEN FSQ(3) - 100000 

FSQ(4) - 54702.6 4 205.98 * VX(2) 4 .1019 • VX(7) - 15529.7 * LOG(VX(2)) 

TF FSQ(4) < 10000 THEN FSQ(4) - 10000 'corrosion contti 
IF FSQ(4) > 1 00000 THEN FSQ<4) - 100000 

ESQ(5) - 187272 4- 3 • VX{7) - 22.694 • VX(6) f 773.04 * SQR(VX(6)) 8104.9 * VX(5) - 40638.6 / VX(5) - 3024.8 • LOG(VX(15)) - 27836 * LOG(XP(I)) 

IF FSQ(5) < 10000 THEN FSQ(5) - 10000 ' engine shop 

IF FSQ<5) > 80000 THEN FSQ<5) - 80000 

FSQ(6) - 263506.8 - 590 * VX(5) - 16788 7 *XP(1) f 409852 7 * SQR(XP(1)) 584249.3 * LOG(XP(l)) 

IF FSQ(6) < 7000 THEN FSQ<6) - 7000 ‘operations 
IF FSQ(6) > 60000 THEN FSQ(6) - 60000 

FSQ(7) — 5444.8 4 .08443 * VX(1) - .2322 * VX(7) - 137. 13 • SQR(VX(7)) + 2 164 * VX(6) - 1094. 1 *VX(5) 4 1783-1 * SQR(VX(5)) + 619 .89 • LOG(VX(I5)) 4 20518/ VX(15) 
IF FSQ(7) < 5000 THEN FSQ<7) - 5000’ runway 
IF FSQ(7) > 20000 THEN FSQ(7) - 20000 

FSQ<8) - 12224.8 4 14.36 * VX{2) + 370.98 * VX(5) 4- 739.22 / VX(5) - 1385.76 * LOG(VX(2)) 

IF FSQ(8) < 8000 THEN FSQ(8) - 8000’ fire station 

IF FSQ(8) > 13000 THEN FSQ<8) - 13000 

FSQ(9) - 9800 'control tower 

FSQ(10) - 6900 ’security 

FSQ< 1 1) ^ 5000 ’telecomm 

FSQ(12) - 4000 ’NDI 

FSQ(13) - 5000 'PMEL 

FSQ( 14) - 20000 ’maintenance training 

FSQ(15) - 15000 ’tariways 

FSQ( 1 6) - -498939 - 19027.7 / VX(1) + 275.07 * SQR(VX(1)) - 992 84 * SQR(VX(8)) 4- 5.278 • VX(7) 4- 4.013E+07 / VX(7) * 34.1 * VX(6) f 113650.8 * IDG(VX(2)) 

IFFSQ(16) < 11000 THEN FSQ( 16) - 1 1000' warehouse 

IFFSQ<16) > 70000 THEN FSQ(16) - 70000 

’compute cost costs are in millions of 1993 dollars 

’ then inx moves them to base yr or beddown yr 

TFCC - 0 

ADJ - in* * 1.045 • 1 036 * 1.038 * 1 046’ 1993 INFLATION ADJ, 89 to 93, using NASA tables 
FOR I - 1 TO 16 

TFMPC - ADJ * FSQil) • FC(I) 

FCC(I) - TF.MPC / 1000000 
TFCC - TFCC 4- FCC(I) 

NEXT! 

'compute support costs IN 1989 DOLLARS (VvehicJe) 

MAT - 94327 8 + 6206 * VX(t) - 301.57 * VX(2) - 4787331 / VX(2) - 6 595 • VX(6) 

IF MAT < 10000 THEN MAT - 10000 

CNT - 94577 - 4938749 / VX(2) 4 935699 / VX(8) + 5741874 / VX(7) - 379.73 * VX(13) 

IFCNT < 11000 THEN CNT - 11000 

OTH - 16578.3 .806 • VX(8) 4 18456. 1 * LOG<VX(5)) 

IF OTH < 5500 THEN OTH - 5500 
PER - 174077 - 1.01E + 07 / VX(2) 

IF PER < 30500 THEN PER - 30500 
MAT - XP(1) * MAT / 1000000 
CNT - XP(1) * CNT / 1000000 
OTH - XP(I) • OTH / 1000000 
PER - XP(1) • PER / 1000000 

MAT - ADJ * MAT: CNT - ADJ * CNT: OTH = ADJ • OTH: PER - ADJ * PER 
FI.CC - MAT 4 CNT + OTH 4- PER 
wbsc(2, 37) — FLCC + TFCC 

IF wbscc(37) - 1 THEN wbsc(4, 37) = lef * wbsc(l , 37) ELSE wbsc(4, 37) - lef * FLCC + TFCC 
END SUB 

SUB HYPER ^ .. . 

' Subroutine to calculate the costs of a hypervelodty vehicle 
' Based upon die HVLCCM ('Conceptual Design ami Analysis of Hypervetocity 
’ Aerospace Vehicles, Volume IB. Cost," July 1991, AD-B159 615) 

’ RAD CERs 
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AJ - I 914218676# 

nzult - 3 'structural ultimate load factor at flight design gross weight 

rd(!) - 4 8761 * nzult * 2.3353 * VX(18) ' 1.1933 ’ engineering labor [MH[ 

rd(2) - 267440 * XP(8) * .53821 • VX(18) * 33606' total tooling labor [MH] 

rd(3) - 2. 03 87 F. -08 * nzult * 3 0908 * VX(18) * 1 4299 * AJ’ other direct charges [MS’80[ 

rd(4) - .025501 * nzult * 1.3787 • VX(18) * 80342 * AJ’ first ahframe materials cost [M$’80j 

rd(5) - 0100446# * nzult * 1.2478 * VX(18) * 83651 * AJ’ quality control [MS’80] 


’ systems 
’ manhours 

mh(I) = .1572 # rd(I)’ structures manhours [MH] 

mb(2) - 004 * rd(l)’ landing gear manhours [MH1 

mh(3) - .0002 * rd(l)’ docking system manhours [MH[ 

mh{4) -= 0069 * rd(l)’ payload deployment and retrieval manhours [MH] 

mh(5) - .7003 * rd(l)’ main propu1s>on manhours [MH] 

mh(6) - .0072 * rd(l)’ orbital maneuvering system manhours [MH] 

mh(7) - .0336 * n^l)' reaction control system manhours [MH] 

mh(8) - .0345 * rd(l)’ avionics manhours [MH] 

mh(9) - .0175 * rd(l)’ electrical manhours [MH] 

mh(l0) - .0017 * rd(I)' hydraulics manpower [MH] 

mh( 1 1 ) - .0359 * rd(I)‘ environmental control system manpower [MH] 

mh(I2) - .001 * rd(l)’ flight personnel provisions manpower [MH] 

’ cost of labor 

FOR I - I TO 1 2 ’ subsystem 

mhc(I) - inx * mh(I) * XCF (6) ! 1000000 
NEXT I 

FOR I - 1 TO 2 ’ main category 

rdc(I) - rd(T) * XCF(7 - 1) / 1000000 
NEXT I 
rdc(3) - rd<3) 
rdc(4) - rd(4) 
rdc<5) - rd(5) 

’IF XFG - 1 THEN wbsc(2, I) = inx • (rdc(I) + rdc(2) + rdc(3) + rdc(4) f rdc(5)) 


’ PRODUCTION CERs - incomplete 
END SUB 
SUB OPS 

’Module to compute operational costs 
'Prevail model input 

prvinx - 2,501 ‘inflation factor from 77 to 93 
’launch and flight operations costs 

L - .025 * SUP • XP(2) + .175 • SUP * 1.273 * XP(2) * 85 * 1.732 / SQR(XP(2)) 
L=l.l5*L 'recoverable vehicle 

wbsc(2, 19) - L - L / 3 - . 1 * L ’note SUP already inflated 
wbsc(2, 20) = L / 3 

’ Retrieval costs 

TF VX(1) < - 250000 THEN wbsc(2, 21) - prvinx * inx * 25 
IF VX(I) > 250000 AND VX(l) < 500000 THEN wbsc(2, 21) - prvinx * inx 
IF VX(1) > - 500000 THEN wbsc(2, 21) - prvinx * inx * 2 
’ need to include cost of SRM’s - see Prevail p 159 

END SUB 

SUB ORG 

' 2. 3.2.2 Organizational Maintenance costs - IN $M - read MP(I) from RAM 
TMMC - 0: AMMC - 0 

IF FLAG - 0 THEN 

AMMC - inx * TX * (40 * 52 * XCF(5)) / 1000000 
TMMC - lef * AMMC 

EIJ5E 

FOR I - I TO 33 

AMC(2, 1) - inx * MP(I) * (40 * 52 * XCF(5)) / 1000000 
MC(2, I) — krf * AMC(2, 0 
AMMC - AMMC +- AMC(2, I) 

NEXT I 

AMMC - AMMC + inx * SMP * (40 * 52 * XCF(5)) / 1000000 
TMMC - kf * AMMC 
END IF 
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' maint overhead costs from Cost of Ownership Model 
HM - XP(2) * XP(3) / 12 ’ msn hr per mo 

SM - XP(2) / 1 2 ' msn per mo 


OMO(l) - 2125.6 ■+ .5032 * HM 
OMO(2) - 3477.2 + .7469 * SM 
OMO(3) - 475 397 
OMO(4) - 1082.7 f 1.143 * HM 
OMO(5) - 532.8 f 1.0813 # SM 
OMO(6) - 264.2 f 6.393 * XP(1) 
OMO(7) - 19.18 * SM " .4269 
OMO(8) - 505.8 f 1.013 * SM 
OMCK9) - 713.7 + 9658 * SM 
TOMO - 0. OVH - 0 


’CHIEF OF MAINT X(U) - avail hn/mo 
QC 

’MAINT CONTR 

TOB CONTROL 
’PLANS & SCHED 
'DOCUMENTATION 
MATERIEL CONTROL 
SUPPLY LIASON 
PROD CONTR 


FOR I - 1 TO 9 

OVH - OVH f INT(OMO(I) / X(II) + 95) 

OMO(T) - inx * 40 * 52 * XCF(5) * INT(OMO(I) / X(1 1> t .95) t 1000000 
TOMO - TOMO + OMO{V) 

NEXT I 
AD - 0 

FOR l - l TO 9 

DC(I, 2) - XP(2) • DC(I, 2) / 1000000 ’base Ivl materiel costs 
AD ^ AD 4- DC(I, 2) 


NEXT! 


wbsc(2, 14) - AMMC f TOMO t AD 
wbsc(4, 14) ^ lef * wbsc(wbscc(I4), 14) 


END SUB 


SUB OS 

’ Operations and Support Costs, 'Conceptual Design and Analysis of 
’ Hypervelocity Aerospace Vehicles, Volume ITT Cost,* 20 July 1991 
' AD-B159 615, 1985 S’s 

’ Indirect Costs ($85), translated to 1993 by NASA table 
aa93 - 1.914 ’1.390857677# 


’ Unit Ixvcl Personnel 

ID(i) - 755130 * VX(3) * 1.6422 * XP(I) ' 89681 * a*93 * inx ’Aircrew 

ID(2) - 537990 * (XP(2) * XP(3)) * 50621 * XP(1) " 89225 * »93 * inx ’Command Staff 

ID(3) = .07 * (ID0) + ID(2)) ’Security 

n>(4) - .2 • (ID(1) + ID(2)) ’Other 

1 Direct Costs ($85) converted to 1993. 

’ 1 -Maintenance Personnel [S/FH] 

1 2-Maintenance Material [$/FH"| 

’ 3-Depot Personnel [S/FH] 

4-Depot Material ($/FHJ 
’ 5-Replenishment Spares [S/FH] 

6-Data [$/FH] 

’ 7-Support Equipment [V(4 HW)] 

* 8-Initial Spares [VHW] 

' 9-Replacement Support Equipment ($1 

UR - XP(3) * XP(2) / XP(1) ’ util rate brs/yr per veh 

’ structure 

DC(1, I) - 1083.9 * UR ‘ .55687 • VX(8) * 66207 • aa93 * inx 

DC(1, 2) - 6.155 • (UR) * 1.1025 * VX(8) ' .79374 • »«93 * inx 

DC(1, 3) - 6838.9 * (UR) " .17293 * VX(8) * .5389 * aa93 * inx 

DC(1 , 4) - 12773! * UR " .40781 * aa93 * inx 

DC(1, 5) - 2235.7 * (XP(2)) * .44611 * VX(8) * .42599 * aa93 * inx 

t)C(l ,6) - 407.53 * VX(18) ‘ 6394 * aa93 * inx 

DC(1 , 7) - 644.063 * VX(7) * .70503 * aa93 * inx 

DC(1, 8) - 4.08905 * VX(8) * 1.4795 * 5.6303 * aa93 * inx’ 5 6.. b the (max mach)‘ 8881 
DC(1, 9) - .2 * 1X2(1, 7) 


’ landing Gear 

DC(2, I) - 40.2249 * VX(31) * 072882 * VX(8) * .53446 * a*93 * inx 
DC(2, 2) - 3924 • VX(9) ‘ .43025 * VX(32) * 36569 * aa93 * inx 

DC(2, 3) - 1697.4 * VX(9) * 30068 * VX(33) * .42521 * aa93 * inx 

DC<2, 4) - 1187.3 * VX(2) ‘ 66587 * VX(34) - .60526 * aa93 * inx 

DC(2, 5) - 2877.49 * VX(9) * 9313 * VX(32) * .2789 * aa93 * inx 

DC(2, 6) - 214.6 * XPC !) * .6664 * VX(19) ‘ .30877 * aa93 * inx 

DC(2, 7) - .306413 * VX(18) * .70378 * VX(48) * . 11614 * aa93 * inx’ mach* a : 1.2=7*. 1 1614 could be 1.1.. .7 
DC(2, 8) - 1. 14042 * VX(18) 4 1.0393 * aa93 * inx 
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DC(2, 9) - .2 • DC(2, 7) 


’ Payload Deployment and Return 

DC(3, 1) - 21436.3 * VX(35) ' 3562 * aa93 * inx 

DC(3, 2) - 15.2477 * VX(36) ‘ .79221 * VX(37) * 024399 • aa93 * inx 

DC(3, 3) - 350.272 * VX(35) * 55731 * (VX(3) + VX(4)) * 022272 * aa93 * inx 

DC(3, 4) - 9.65239 * VX(35) ' 44168 * VX(36) * .39999 * aa93 * inx 

DC(3, 5) - 10.6276 * VX(35) * 20537 • VX(36) ‘ 70128 * aa93 * inx 

DC(3, 6) - 01 * prodcsl 

DC(3, 7) - 02 * wbsc(wbtcc(6), 6) / XP(I) 

DC(3, 8) - .025 * prodcst 
DC(3, 9) - .02 * DC(3, 7) 

’ Avionics 

DC(4, 1) - 379670 * VX(I2) * .3672 * (avinwt / .52) * .050126 * aa93 * inx 

DC(4, 2) - 14476 * VX(12) * .66556 * aa93 * inx 

DC(4, 3) - 4053! * VX(12) * .64027 * VX(15) * 30348 * aa93 * inx 

DC(4, 4) - 4.1221 * avinwt ' 38875 * VX(38) ‘ 2.8235 * aa93 * inx 

DC(4, 5) - 10.427 * VX(I2) * 89189 * (avinwt / .52) * 68652 * aa93 * inx 

1X1(4, 6) - 142345 * (avinwt / .52) * 091207 * aa93 * inx 

DC(4, 7) - 376. 149 * VX(47) * 1.1071 * aa93 * inx 

DC(4, 8) - 9675.31 * avinwt " ,78372 • (VX(1) / VX<7)) * .37412 * aa93 * inx 
DC(4, 9) - .2 * DC(4, 7) 

1 Electrical 

DC(5, I) - 2.11812 * VX(39) * .8642 * VX(5) * 2 072! * aa93 * inx 
DC<5, 2) - 98.7584 * VX(2) * 1.1251 * VX(12) * 36008 * aa93 * inx 
DC(5. 3) - 381.17 * VX(2) * 1.2603 * XP(3) * .30284 • aa93 * inx 
DC(5, 4) - 148.709 * VX(39) ‘ 93869 * VX(12) * 13678 * aa93 * inx 
DC(5. 5) - 115 132 * VX(39) * .9355 * VX(40) * .95695 * aa93 * inx 
DC(5, 6) - 38.7703 * VX(12) * 1.0292 * aa93 * inx 
DC(5, 7) - 20536 * VX(12) * .18723 * VX(48) * .87839 * aa93 * inx 
DC(5, 8) - 932.337 • 3.3418 * VX(12) * .7465 * aa93 * inx‘ 3.3-7* 62003 
DC(5, 9) — ,2 * DC(5, 7) 


' Hjdraulics 

TX1(6, 1) - 13315.4 • VX(2) * . 16752 * VX(41) * 81458 * aa93 * inx 

DC(6, 2) - 8389.99 * VX(42) ‘ .29838 * VX(13) ‘ 56681 * »93 * inx 

DC(6, 3) - 32661.8 * VX(ll) * 3451 * VX(41) * .70715 * ai93 • inx 

DC(6, 4) - .738358 * VX(2) * 2.1815 * VX(42) * 15009 * »93 * inx 

DC(6. 5) - .290026 • VX(2) * 2.3754 • VX(41) * .21649 * aa93 * inx 

DC(6, 6) - 741.81 * VX(10) * .95341 * «93 * inx 

DC(6, 7) - 2400.88 • VX(I3) * 76158 • aa93 • inx 

DC(6. 8) - 3.1879 * VX(2) * 1.8749 * 4.8724 * aa93 * inx’ 4.8... -mix mach',8138 (7 * 81 38) 

DC(6, 9) - .2 * DC(6, 7) 

’ ecls 

DC(7, 1) - 5845.5 * VX(43) * .31313 • XP(3) * 1.2395 • aa93 * inx 

DC(7 , 2) - 252.16 * XP(3) * .5813 • VX(7) * .46728 * ai93 * inx 

DC(7, 3) = 6428.7 * XP(3) * 36061 * VX(7) * .36541 * m 93 * inx 

DC(7, 4) - 196.918 * (VX(3) + VX(4)) * .0031839 * VX(7) * .69177 * at93 * inx 

DC(7, 5) - 88.903 * XP(3) ‘ .29514 * VX(7) * 66886 * «93 * inx 

DC(7, 6) - 29077.9 * (avinwt / .52) * .18719 * a«93 * inx 

DC(7, 7) - 7812.31 ♦ VX(45) “ .78697 * VX(48) * .9731 * aa93 • inx 

DC<7 , 8) - 2.86158 * (VX(17) * (VX(3) + VX(4))) * .6701 * VX(12) * 1,0107 * a«93 * inx 

DC(7, 9) = .2 * DC(7, 1) 

' Flight Proviswns 

DC(8, l) - 354.58 * VX(3) * 80328 * XP(3) * 1.0034 * a»93 * inx 

DC(8, 2) = 11 5099 * VX(35) * .40262 • XP(3) ‘ .77562 * a*93 * inx 

DC(8, 3) - 5.65649 * VX(2) * .97927 * XP(I1) * .19409 * a«93 * inx 

DC(8, 4) - .00321882# • VX(2) * 2.1661 • VX(44) * .34181 * a*93 * inx 

DC(8, 5) - .0344495 * VX(2) * 2. 1661 * VX(44) * 56086 • i«93 * inx 

DC(8 , 6) - 15.5429 * (VX(3) f VX(4)) * .70674 * XP(1I) " 9167 * a«93 • inx 

DC(8, 7) - 3.05923E-09 * (VX(5) * VX(21)) * 1.8319 * a*93 * inx 

DC(8, 8) - 14.4453 * 4. 1 175 • VX(7) * .6217 * ai93 * inx ’4 1 . , - mix mach* 72729 (7) 

DC(S, 9) - .2 * DC(8, 7) 

’ Docking 

DC(9, 1) - 41.9232 * VX(36) * .4924 * aa93 * inx [S/fligbt ????] 

DC(9 , 2) - .0749785 * VX(36) * .43375 * VX(I8) * .46765 * «93 * inx 
DC(9, 3) - .612697 * VX(39) * 040297 • VX(18) ‘ .6539 * a»93 * inx 
DC(9, 4) - 0560647 * VX(39) * .67061 * VX(2) * .933312 * m 93 * inx 

DC(9* 5) - .0938672 • VX(36) * .57147 * VX(35) * .3691 1 * «93 * inx 

DC(9, 6) - .517318 * VX(18) * 6394 * a*93 • inx 

DC(9, 7) = .795139 • VX(7) * 70503 * aa93 * inx 

DC(9, 8) - .00514174#* VX(8) ’ 1.4795 * 5.6303 * «93 * inx* 5 6 -mix n»ch' 8881 (7) 
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DC(9, 9) - ,2 * DC(9, 7) 
END SUB 


SUB PWRCF-R 

’ CER’s for design engineering, test & evaluation, & unit production 
' all costs in 1977 dollars excluding fee and profit-updated to 1993 with NASA 
’ source: PREVAIL - Algorithms far Conceptual Design of Space Transportation 
’ Systems Feb 16, 1987. 

1 Independent variable is dry weight 

’ w ‘ Winged stages **** 

prvinx - 2.501 ’infhtion factor from 77 to 93 
selv - 1 

WT(1) - W(7): WT(2) - W(6): WT(3) - W(9): WT(4) - W{13) + W(I4> t W(I5) 
WT(5) - W(16): WT(6) - W(19): WT(7) - W(24) t W(20) » W(22); WT(8) - W{23) 

WT(9) - W(21): WT(IO) - W(4) + W(5): WT(ll) - W(I0) WT(12) - W(l!) + W(12) 

WT(I3) = W(30): WT(14) - W(32): WT(15) - W(l) + W(2) t- W(3) 

SDE - 0: STF. - 0: SUP = 0 
FOR I - i TO 15 

DE(T) - A(I, selv) * WT(1) ’ B(T, selv) * in* * ptvinx 
TE(T) - A(T t 14, selv) * WT(I) * B(I f 14, selv) * inx * prvinx 
UP(I) - A(1 4- 28, selv) * WT(I) * B(1 4 28, selv) * inx * prvinx 
SDE - SDE + DE(I) 

STE - STE + TF.(I) 

SUP - SUP 4- UPt!) 

NEXT I 

pf - .07 'prefit 
SDE - SDE t pf * SDE 
STE - STE + pf * SDE 


wbsc(2, 8) - STE 
wbsc(2, 5) - SDE 

’apply 90% learning curve to production costs of 5th unit 
TPR - 0 

K - 5 * .152 * (SUP f pf * SUP) 

FOR I = 1 TO XP(1) 

TPR = TPR + K * I * -.152 
NEXT! 

wbsc(2, 6) - TPR 

TW - SDE + STE + TPR 

’compute sustaining engineering using a 70% learning curve 
sum - 0 

FOR 1 - 2 TO XP(1) 

sum - sum + SDE * I * - .5146 

NEXT I 

wbsc(2, 10) - sum 


END SUB 
SUB SECOND 

1 Calculates the basic variables from regression of aircraft 
* Sink Speed is biroodal Air Force is 10, Navy is 20 ft/sec. 

VX(36) - 12105.87 - 310.2692 * VX(2) + 1 1.75155 * VX(8) 

IE VX(36) < 0 THEN VX<36) - 0 ’HVLCCM 
IF VX(36) > 295000 THEN VX(36) - 295000 

’seat: scats - CTNT(-, 3227205 f .02192 • VX(2) - .0000616 * VX(7))’seats, including bunks 
'IF scad < - 0 THEN 
’ seats = 2 

’END IF 

VX(45) - VX(3) f VX(4) 

land; VX(33) - -33683.43 f 2.257766 * VX<!) 

IF VX(33) < - VX(I) THEN VX(33) - VX(I)' 

IF VX(33) > VX(1) +- VX(3 6) THEN VX(33) - VX(I) +■ VX(36) 


brake: VX(34) - ONT( .4951968 + 7.714E-05 * VX(1)) 
IF VX(34) < 4 THEN VX(34) - 4 
IF VX(34) > 24 THEN VX(34) - 24 
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car: VX(35) - -2953 888 f .0959459 * VX(I) 

TF VX(3 6) - 0 THEN VX(35) - 0 
IF VX(35) > 35000 THEN VX(35) - 35000 

rF VX(35) < 0 AND VX(36) > 0 THEN VX(35) - 900 ELSE VX(35) - 0 

carf: VX(39) ^ 6.939 f 007231 * VX(1)‘ includes passengers but no baggage floor space 
TF VX(36) - 0 THEN VX(39) - 0 
TF VX(39) < 0 THEN VX(39) - 0 
TF VX(39) > 2300 THEN VX(39) - 2300 


* mm check payload weight ????? 

carw: carwgt - -26845 I .9267182 * VX(1) 
TF carwgt < - 0 THEN carwgt — 65000 


VX(38) - CTNT(-49 18029 6 988057 * W(3) / VX(7)) 

IF VX(38) < - 0 THEN VX(38) - 2 
TF VX(38) > 33 THEN VX(38) - 33 

VX(42) - CINT(2. 538731 f 5 005 E -06 * VX(1)) 

TF VX(42) < - 0 THEN VX(42) - 3 
IF VX(42) > 8 THEN VX(42) - 8 

nyhdss - CTNT(-. 192691 7# F .001748 * VX(8) F 2.593352 * W(3) / VX(7» 
IF nyhd» < - 0 THEN nybdss - 12 
TF nybdss > 76 THEN nyhdss - 76 

VX(41) - CINT(2. 787008 f 00025 * VX(8)) 

IF VX(41) < = 0 THEN VX(4l) - 3 
IF VX(4I) > II THEN VX(41) « 11 

VX(2I) - 1499.603 + 205.0589 * VX(2) + .9516296 * VX(7) 

IF VX(2I) < - 0 THEN VX(2I) - 52500 

'reconcile vehicle weights 
ADI - 0 

FOR I - 19 TO 24: ADI - ADI F MCF(I): NEXT I *tot fuel wgt 
VX(18) - VX(1) f VX<36) + ADI 
TF VX(33) > VX(18) - ADI THEN VX(33) - VX(18) - ADI 
IF VX(33) < VX(1) THEN VX(33) - VX(1) 

‘avionics installed weight 

VX(47) - -743.6426 f 75.871 * SQR(VX(2)) f 5.2 • AVWT / VX(I5) 

IF VX(47) < 70 THEN VX(47) - 70 
IF VX( 47) > AVWT THEN VX(47) - AVWT 
VX(46) - AVWT - VX(4T) 

IF VX(46) < VX(47) THEN VX(46) - VX(47) / 2: VX(47) - VX(47) / 2 

END SUB 

SUB SOFTWARE 
TDSC - XCF(5) * MM ! 12 
TDSC - inx • TDSC / 1000000 
END SUB 

SUB TOT 

’ Computation of the NASA WBS cost elements 

jj - 2 

wbsc(jj, I) - wbsc(wbscc(2), 2) F wbsc(wbscc(3), 3) + wbac(2, I) 
gg ^ wb9c(wbscc(5), 5) 

FOR j = 6 TO 10 

gg = gg 4 wb9c(wbscc(j). i) 

NEXT j 

wbsc(jj, 4) — gg 


gg2 - wbsc(wbscc(13), 13) 

FOR j - 14 TO 22 

TF j > 14 THEN wbsc(wbscc(j), j) = ins * wbsc(wbscc(j), j) 
gg2 = gg2 F wbsc(wbsccCj), j) 

NEXT j 

wbsc(jj, 12) » gg2 

wbsc(4, 12) - lef * wbsc(wbscc(I2), 12) 

FOR l - 15 TO 22 

wbsc(4, I) - lef * wbsc(wbscc(T), I) 

NEXT I 

gg3 - wbsc(wbscc(24), 24) 
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gh3 - wbsc(4, 24) 

FOR j - 25 TO 34 

gg3 - gg3 f wbsc(whscc(j), j) 
gh3 - gh3 + wbsc(4, j) 
NF.XTj 

wbscfjj, 23) - gg3 
wbsc(4, 23) - gh3 


gg4 - wbsc(wbscc(36), 36) 
gb4 - wbsc(4, 36) 

FOR j - 37 TO 39 

gg4 - gg4 l wbsc(wbscc(j), j) 
gh4 - gh4 f wbsc(4, j) 

NEXT j 

wbsc(jj, 35) - gg4 
wbsc(4, 35) - gb4 

FOR I - 1 TO 10 

wbsc(wbscc(0. 1) - in*. * wbsc(wbscc(T) , 0 
wbsc(4, I) - wbsc(wbscc(I), I) 

NEXT I 


FOR I - 40 TO 41 

wbsc(wbscc(1). 1) - in* * wbsc(wbscc(T), 1) 
wbsc(4, 1) - Icf * wbsc(wbscc(T), T) 

NEXT I 

wbsc(wbscc(42), 42) - in* * wbsc(wbscc(42), 42) 
wb$c(4, 42) ^ raxf * wbsc(wbscc(42), 42) 

wbsctjj, 11) - wbsc(wbscc(12), 12) + wbsc(wbscc(23), 23) f wbsc(wb«c(35), 35) + wbsc(wbscc(40), 40) f wbsc(wbscc(41), 41) 
wbjc(4, II) - wbsc(4, 12) f wbsc<4, 23) 1 wbsc(4, 35) + wbsc(4, 40) f wbsc(4, 41) 

totd - wbsc(wbscc(l), 1) + wbsc(wbscc(4), 4) f wbsc(wb9cc(n), 11) f wbsc(wbscc(42), 42) 

Ictot - wbsc(4, 1) + wbsc(4, 4) + wbsc(4, II) f wbsc(4, 42) 

END SUB 
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Module LCC3.BAS 


DECLARE SUB PRTNTACQ 0 
DECLARE SUB PRINTFAC 0 
DECT. ARE SUB PRINTSYS () 

DECT, ARE SUB ECHO () 

DECT, ARE SUB PRINTMAN () 

DECT, ARE SUB PRINTHYP 0 
DECLARE SUB PRINTWB5 () 

DECLARE SUB PRINTLOG 0 
DECLARE SUB SPTC Q 
DECLARE SUB LOGS 0 
DECLARE SUB HYPDIS 0 
DECLARE SUB totdd 0 
DECLARE SUB OSC 0 
DECLARE SUB DISHYPER Q 
DECLARE SUB DISMAN 0 
DECLARE SUB DISWBS 0 
DECT, ARE SUB DISSOFT () 

DECLARE SUB SUMMARY 0 
DECLARE SUB PHASE 0 
DECLARE SUB FACCOST 0 
DECLARE SUB ACQ 0 
DECLARE SUB OSC () 

’NASA LANGLEY RESEARCH CENTER 

’LIFE CYCLE COST MODEL developed by Univ of Dayton 

’save as LCC3.BAS 

'File 3 - display modules 

COMMON SHARED VNAMJ, SMP, TME, TMF, SDE, STF., SUP, TW, AF» Dee, iafb, infbdd, inffc 
COMMON SHARED tfee, TFSC, MAT, CNT, OTH, PER, FAF, AMMC, TMMC, inx, year 
COMMON SHARED MM, TDSC, ADJ, INST, INTEG, RFSO, APPL, CPLX, UTIL, PLTFM, WEIGHT 
COMMON SHARED vs$, selv, wbs, told, AVWT, lef, tn*f, TOMO, Idol, TPR 

COMMON SHARED SI, RS, NC, RC, NIMWC, RIMWC, RGSE, NGSE, Nl, N2, N3, N4, Ml, M2, M3, M4, TI, T2, SI, S2, N1LSM, RILSM 
COMMON SHARED AC, CS, HYPS, PRVS1, PRVS2, SEC, R TITLES. OVH, XFG, Dl, TX, FLAG 
DIM SHARED wbs$<2, 60), P$05), XP(25), X(30), V(15), WB$(I5) 

DIM SHARED W(35), S<35), MP(35), CFS(30), XCF(30), AMC<2, 50), MC<2, 50), ID(5), DQ10, 10) 

DIM SHARED A(50, 3), B(50, 3), DE(16), TE(16), UP(16), WT(15), HYPS(16), racs(10) AS SINGLE 
DIM SHARED CF(35), ks<35), QTY(35), VXStfO). VX(60), mh(20), rd(10), OSCLS(10) 

DIM SHARED FSQ(20), FC(20), FS(20), FCC(20), mhc^O), rdc(lO), ism(20, 10), INFf(10) 

DIM SHARED TOTH(IO), TOTV(IO), wbac(4, 50), wb*x(50), MFS(40), MCF(40) 

DIM SHARED HP(10), HH(10), HS{10), HR(10), HD(10), infv<50), Of*H(35), OMO(IO), OMOS(10) 

DIM SHARED CZ(10), SC(10), CA(33), SWBSS(10) 

COMMON SHARED CZO, SCO, CA0, SWBS$0 

COMMON SHARED HPQ, HH(), HS(), HR(), HDO 

COMMON SHARED wbs$0, PH$0, P$0, XP(), XO, VO, WB$0 

COMMON SHARED WO, SO, MPO, CFSO, XCFO, AMCQ, MCO. IDO, DCO 

COMMON SHARED AO, BO, DEO, LEO, UP(). WTO, HYPS() 

COMMON SHARED CFO, tcaO, QTYQ, VXSO, VXO, mbO, rdO, OSCI40 
COMMON SHARED FSQO, FCQ, F$0, FCCQ. mhc(), rdcO, «n»0, rNFfQ 

COMMON SHARED TOTHQ, TOTVQ, wbscO. wtwccQ, MF*), MCFQ, brfvO, OPHQ, OMOQ, OMO$0 


SUB ACQ 
CLS : COLOR 2 

PRINT TAB{20); ’ACQUISITION COSTS - PREVAIL MODEL - wjt driven" 

COLOR 7: PRINT TAB(5); 'Note: coate are in milhoei of year"; yew; 'dollars’ 

COLOR 13 

PRINT TAB(5); 'WBS'; TAB<25); ’DESIGN ENG"; TAB(40); 'TEST A EVAL"; TAB(55); ’UNIT PROD’; TAB(67); ’TOTALS" 

COLOR 14 
TOT - 0! 

FOR I = l TO 15 

COLOR 10: PRINT TAB(I); WB$(I); TAB<25); 

’COLOR 11: PRINT USING '#######'; INT(DE(I) * 1000) ( 1000; TAB(40); INT(TE(I) * 1000) ( 1000; TAB(55); INT(UP(I) * 1000) / 1000; TAB(65), INT((DF(T) t TE(I) 
E UP(I)) * 1000) / 1000 

COLOR II: PRINT USING ’####*##’; DE(I); TAB<40); TE(I); TAB(55); UP(J); TAB(65); DE(I) E TE(I) E UP(T) 

TOT - TOT E INT((DE(I) f TE(I) E UP(I)) * 1000) / 1000 
NEXT I 
COLOR 15 

PRINT "": PRINT TAB(l); "SUBTOTALS"; TAB<25); 

PRINT USING "####.###"; SDE; TAB<40); STE; TAB(55); SUP; 

PRINT : COLOR 1 1 : PRINT TAB{1); ’TOTAL COSTS FOR"; XP(I); "VEHICLES'; 

PRINT USING '######.###'; TAB(53); TPR; TAB(65); TPR E SDE E STE 
COLOR 7: PRINT 'note: production coate are baaed open i 90* learning curve’ 

PRINT ’with the unit production coate computed far the 5th unit" 

COLOR 2 
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LOCATE 25, 25: INPUT 'ENTER RETURN... \ RET 


END SUB 

SUB DISHYPER 

CLS : COLOR 2 PRINT 

PRINT TAB(5), 'HYPFRVFIXXXTY COST MODEL - R&D costs’ 

COLOR 3: PRINT 

PRINT TAB(5), “Note: costs are in MILLIONS of year*; year; "dollars' 

COLOR 13: PRINT : PRfNT 

PRINT TAB(5), "ENGINEERING LABOR'; TAB(40); 

PRINT USING '######.###'; rdc(l) 

PRINT 

PRINT TAB{5); 'TOTAL TOOLING LABOR'; TAB(40), 

PRINT USING ’######.###'; rdc(2) 

PRINT 

PRINT TAB(5); 'OTHER DIRECT CHARGES', TAB(40); 

PRINT USING 'MM*#.***'-, rdc(3) 

PRINT 

PRINT TAB(5); 'FTRST AIRFRAME MATERIALS'; TAB(40); 

PRINT USING '######.###'; rdc{4) 

PRINT 

PRINT TAB<5); 'QUALITY CONTROL'; TAB(40); 

PRINT USING '######.###’; rdc(5) 

PRINT 
COIX3R 12 

PRINT TAB(5); "TOTAL'; TAB(40); 

PRINT USING '######.###'; rdc(l) f rdc(2) f rdc(3) \ rdc(4) + rdc(5) 

PRINT ; COLOR 3 

PRINT : INPUT 'enter return .'; RET 
CLS 

PRINT TAB(5); "HYPER VELOCITY COST MODEL - R&D costs’ 

COLOR 2; PRINT TAB(5); 'breakdown of engineering labor costs by subsystem' 

PRINT TAB(5); 'Note: costs are in MILLIONS of year'; year; ’dollars' 

COLOR 13; PRINT 

PRTNT TAB(5); 'WBS'; TAB<50); 'LABOR COSTS' 

COLOR 11; PRINT 
TC = 0 

FOR ! = I TO 16 

IF I - 8 OR I - 9 OR I - 10 OR I = 11 THEN GOTO SKIP 
IE I > 7 THEN IK = 1 - 4 ELSE TK = I 
PRINT TAB(I); HYP*I); TAB(50); 

PRINT USING '#######.###'; mhc<lK) 

TC = TC f mhc(lK) 

SKIP: NEXT 1 
PRINT 

COLOR 10: PRINT TAB(l); 'TOTAL'; TAB(50); 

PRINT USING "####.###"; TC 

COI OR 3 

PRINT ; INPUT 'ENTER RETURN... RET 

END SUB 

SUB DTSMAN 
wbs - 2 

IF FLAG - I THEN 
ii - l: tb — 15 
BK4: CLS : COLOR 2 

PRINT TAB(5); 'ORG MAINT MANPOWER COSTS FOR '; VNAMS; * OVER A'; XP(4); "YR SYSTEM LIFE' 

COLOR 3: PRINT 

PRINT TAB{5); ’Note: costs are in millions of year* “doflarv* 

IF XP(6) - 1 THEN PRINT TAB(5>; 'life cycle costs are in constant'; year; 'doUars.' ELSE PRINT TAB{5); 'Ufc cycle coats are in then year,'; year; 'to'; year + XP(4); ', dollars 
PRINT ; COIX3R 13 

PRINT TAB(l); 'WBS'; TAB(35); ‘ ANNUA1. MAINT COSTS', TAB(60); 'LIFE CYCLE COSTS' 

PRINT : COLOR 12 
IF wbs = 2 THEN 
FOR I - a TO ib 

IF AMC(wbs, I) > OTHEN PRINT TAB(I); wbsS(2 ( I); TAB(45); AMQwbs, I); TAB{65); MC(wt», I) 

NEXT 1 

Y = in* * SMP * (40 * 52 * XCF(5)) f 1000000 

IF SMP > 0 AND ia - 16 THEN PRINT TAB(t); ‘SCHF.D MAINT'; TAB<45); Y; TAB(65); krf * Y 
COLOR 3 

IF ib = 15 THEN PRINT : INPUT 'ENTER RETURN... \ RET 
IF ib = 15 THEN ia ^ 16: & - 33: CLS : GOTO BK4 
PRINT : COLOR 13 

IF ib - 33 THEN PRINT TAB<1); ’TOTALS'; TAB<45); AMMC; TAB(65); TMMC 
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COIvOR 3 

TNPUT "ENTER RETURN. . . ", RET 


ELSE 

BK5: FOR I - ia TO ib 

PRINT TAB(I); wbs${! , T); TAB(40); AMC(wbs, I); TAB(60); MC(wbs, T) 
NEXT I 
COLOR 3 
TF ib - 15 THEN 

PRINT : INPUT "ENTER RETURN ... ", RET 
ia - 16: ib - 33 GOTO BK5 
END IF 

TF ib - 33 THEN 

PRINT INPUT "ENTER RETURN ", RET 
ia - 34: ib = 44: GOTO BK5 
END TF 
END TF 
END TF 


TF FLAG - 0 THEN 

SWBS$<I) - "Structural": SWBSS<2) - "Fucl/Oxid Tanks": SWBSS<3) = "Thermal/Tiles': SWBSS(4) - "Propulsion" 

SWBSS(5) - 'Power/Electrical': SWBSJ(6) - 'Mechanical Sys": SWBSJ(7) - "Avionics': SWBSS{8) - "ECS/Life Support" 

SWBSJ<9) - "Auxiliary Systems' 

CLS ; COLOR 2 

PRINT TAB(5); 'ORG MAINT MANPOWER COSTS FOR VNAMJ; ' OVER A*; XP(4); "YR SYSTEM LIFE' 

COLOR 3: PRINT 

PRINT TAB(5); "Note: costs are in millions of year"; year, "dollars " 

IF XP(6) - 1 THEN PR TNT TAB(5); 'Lifecycle coats are in constant"; year; " dollars " ELSE PRINT TAB(5); 'Life cycle coats are in then year,'; year; "to"; year f XP<4), ", dollars 
PRINT : COLOR 13 

PRINT TAB(I); "WBS", TAB(35); 'ANNUAL MAINT COSTS'; TAB(60); "LIFE CYCLE COSTS' 

PRINT : COLOR 12 
FOR I -= 1 TO 9 

Y - inx * INT(CZ<T) * SC(T) + .99999) * (40 * 52 * XCF(5)) / 1000000 
IF Y > 0 THEN PRINT TAB<1); SWBS*!), TAB<35); Y; TAB(60); lef * Y 
NEXT I 

Y = inx * C2(10) * (40 * 52 * XCF(5)) / 1000000 

IF CZ<10) >0 THEN PRINT TAB(l); 'SCHED MAINT"; TAB{35); Y; TAB(60); lef * Y 
COLOR 9: PRINT : PRINT TAB(5); "TOTALS"; TAB(35); AMMC; TAB(60); TMMC 

COLOR 3 

INPUT 'ENTER RETURN. . . \ RET 
END IF 


CLS : COLOR 2 

PRINT TAB(5); "ORG MAINT MANPOWER COSTS FOR "; VNAM$; " OVER A’; XP(4); 'YR SYSTEM LIFE' 

COLOR 3: PRINT 

PRINT TAB(5); "Note: costs arc in millions of year"; year; "dollars " 

IF XP(6) = I THEN PRINT TAB(5); 'Life cycle costs are in constant'; year; 'dollars." ELSE PRINT TAB(5); "Life cycle costa are in then year,'; year; 'to'; year * XP(4), ", dollars 
PRINT : COt DR 12 

PRINT TAB(l), 'MAINTENANCE OVERHEAD"; TAB(25); 'ANNUAL COST'; TAB(45); "LCC' 

PRINT : COLOR 15 
FOR I = 1 TO 9 

PRINT TAB(I); OMO$<T); TAB(25); OMO(I); TAB(45); lef * OMO(I) 

NEXT [ 

PRINT 

PRINT TAB(I); 'SUBTOTAL'; TAB{25); TOMO; TAB(45); lef * TOMO 
PRINT : COLOR 13 

PRINT TAB(I); "DIRECT LABOR"; TAB(25); AMMC; TAB(45); TMMC: PRINT 
PRINT TAB<1); 'TOTALS’; TAB<25); AMMC + TOMO; TAB(45); TMMC +■ lef * TOMO 
COLOR 3 

INPUT "ENTER RETURN... ', RET 
END SUB 
SUB DISMENU 

'Menu for screen display of output 
ST1; CLS : COLOR 9 

LOCATE 5, 25: PRINT 'SCREEN DISPLAY SELECTION MENU' 

PRINT : PRINT : COLOR 15 

PRINT TAB(25); "1 SUMMARY BY WBS' 

COLOR 14 

PRINT TAB(25); *2 HYPERVEL OAS MODEL COSTS’ 
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PRINT TAB(25>; '3 FACILITY COSTS’ 

PRINT TAB(25), ’4 LOGISTICS MODEL COSTS' 

PRINT TAB(25); "5 ORG MANPOWER COSTS' 

PRINT TAB(25), "6 SYSTEM SUPPORT COSTS’ 

PRINT TAB(25); '7 R&D/ ACQUISITION COSTS-PREVAIL' 

PRTNT TAB(25); *8 RAD COSTS HYPERVEL" 

PRINT 

PRINT TAB(25); "RETURN MAIN MENU’ 

PRINT COLOR 1 1 

LOCATE 22, 25: INPUT "ENTER SELECTION ", SEL 

IF SEL - 7 THEN CALL ACQ 

IF SEL ^ 1 THEN CALL DISWBS 

IF SEL - 2 THEN CALL HYPDI5 

IF SEL - 3 THEN CALL F ACCOST 

IF SEL - 4 THEN CALL LOGS 

IF SEL - 5 THEN CALL DISMAN 

rF SEL - 6 THEN CALL SPTC 

IF SEL - 8 THEN CALL DISHYPER 

IF SEL > 0 THEN GOTO ST1 

END SUB 

SUB DfSSOFT 
CLS : COLOR 10 

LOCATE 4, 20: PRINT 'INPUT/OUTPUT FOR SOFTWARE COSTING - PRICE-5 MODEL- 
PRINT : COLOR II 

PRINT TAB(IO), "INDEX’, TAB(50); "VALUE'; TAB(65); "VARIABLE NAME"; PRINT 
PRINT TAB<10), 'LINES OF MACHINE CODE", TAB(50), INST; TAB<65); "INST" 

PRINT TAB(IO); "INTEGRATION"; TAB(50); INTEG; TAB(65); "INTEG" 

PRINT TAB< 10), 'PRODUCTTV1TY " ; TAB(50); RESO; TAB<65); "RESO" 

PRINT TAB(IO); "WGT AVG COMPLEXITY OF APPLC"; TAB(50); APPL; TAB{65); "APPL* 

PRINT TAB(IO); "COMPLEXITY"; TAB(50). CPLX. TAB<65), 'CPLX* 

PRINT TAB(10); "HARDWARE UTILIZATION', TAB(50); UTIL; TAB(65); "UTIL" 

PRINT TAB(lO); 'OPERATING ENVIRONMENT'; TAB(50); PLTFM; TAB<65); 'PLTFM' 

PRINT TAB(IO); "COMPUTED WEIGHT'; TAB(50); WEIGHT; TAB(65); "WEIGHT- 
PRINT : COLOR 14 

PRINT TAB(5); "MANMONTHS FOR SOFTWARE DEVELOPMENT*; TAB(60); 

PRINT USING "#####.###’; MM 
PRINT 

COLOR 10: PRINT TAB(5); "TOTAL DEVELOPMENT COST IN MILLIONS OF YR"; year; "DOLLARS"; TAB(60); 

PRINT USING '$####,###'; TDSC 

LOCATE 22, 10: COLOR 3: PRINT : INPUT 'ENTER RETURN \ RET 

END SUB 

SUB DISWBS 

CLS : ii — l : ib ■= 10 

IF XP(6) - 1 THEN yr - year ELSE yr - XP(7) + XP(4) 
bk9d; 

COLOR 15: LOCATF 1, 20: PRINT *WBS SYSTEM COST* 

COIX>R 3 

PRINT TAB(5); "Note: Annual costs arc in millions of year’ ; year; "dollars * 

IF XP(6) - I THEN PRINT TAB(5); 'Life cycle costs are in constant"; year; -dollars. " ELSE PRINT TAB(5); "Life cycle costs are in then year,"; year; 'to', year f XP(4); *, dollars 


LOCATE 5, 55: COLOR 10: PRINT 'defaiH"; 

COLOR 15: PRINT ' / 

COLOR 14: PRINT 'computed* COLOR 14 
PRINT 

COLOR 11: PRINT TAB(2); 'WBS'; TAB(38); 'Cost [M year’; year; *$]*; TAB(62); ‘LCC cort": COLOR 14 
PRINT 

FOR I - it TO ib 

IF wbscc(I) = 2 THEN COLOR 14 ELSE COLOR 10 
PRINT TAB<1), wtw$<l, I); TAB(30), , 

PRINT USING *######.### mmtm.ttr - wbsc(wt»cc(T). I); wb*c(4, I) 

IF I = l OR ! - 3 OR 1 = 4 OR I = 1 1 OR 1 - 12 OR 1 - 23 THEN PRINT 
IF I - 35 OR I - 39 OR I = 40 OR I = 41 THEN PRINT 


NEXT I 

IF ib - 42 THEN LOCATE 20, 69: PRINT yr; *yr-$' 


IF ib = 10 THEN 

wbbd: COLOR 1 1 : PRINT : INPUT 'Enter RETURN. . . RET 
COLOR 14 
CI-S 

ia = It: ib = 22; GOTO bk9d 
END IF 

IF ib = 22 THEN 
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COLOR 1 1 PRINT : INPUT "Enter RETURN ", RET 
COLOR 14 
Cl,S 


ia - 23: ib - 34 GOTO bk9d 
END rF 


IF ib - 34 THEN 

wbbld: COLOR II: PRINT INPUT "Enter RETURN... ". RET 
CLS 

ia - 35: ib - 42 GOTO bk9d 
END IF 


IF ib - 42 THEN 

PRINT : COLOR 13 

PRINT TAB(30); "TOTAL", TAB(42), 

PRINT USING ##########.###"; totd; lctot 

wbb2d: COLOR II: PRINT INPUT "Enter RETURN ... ", RET COLOR 14 

END IF 

END SUB 

SUB ECHO 

LPRINT TAB(5); RTITLES; TAB(65); DATES 
LPRINT 

LPRINT TAB(25); 'INPUT DATA FOR COSTING " ; VNAMS 
LPRINT 

LPRINT TAB(30); "SYSTEM PARAMETERS" 

LPRTNT 

LPRINT TAB( 10); "NBR", TAB(20), "PARAMETER"; TAB(50); "VALUE" 
LPRINT 

FOR I ^ I TO 12 


LPRINT TAB( 10); T; TAB(20), PS(I); TAB(50); 

IF I - 9 THEN 

LPRINT USING 'M.M XP(I) • 100 

E1£E 

LPRINT USING "#####"; XP(I) 

END TF 
NEXT I 
LPRINT 

LPRINT TABOO); "COST FACTORS * RATES TABLE": LPRINT 
LPRINT TAB(5); "Note: all coats should be ia 1993 year dollars" 

LPRINT 

LPRINT TAB(5); "NBR"; TAB(I5); "CATEGORY"; TAB(60), "VALUE* 
LPRINT 

FOR T - I TO 29 

IF I - 6 OR I - 1 7 OR I - 26 OR l = 28 THEN GOTO SKPP 
LPRINT TAB(5), I; TAB(15), CFS(I), TAB<57); 

LPRINT USING #####"; XCF(I) 


SKPP: NEXT I 
LPRINT CHRK! 2) 

LPRINT TAB(5); RTTTLEJ; TAB(70); "page 2" 

W LPRINT 

LPRINT TAB(5); "VEHICLE IS "; 

LPRINT VNAMS; 

535 LPRINT TAB(35); "DESIGNflPEREORMANCE VARIABLES " : LPRINT 

— I -PRINT 

w LPRINT TAB(5); "NBR"; TAB(!5); "VARIABLE"; TAB<55), "VALUE* 

FOR I = 1 TO 53 

. IF I — 14 OR I > = 20 AND I < 32 OR I - 37 OR I - 43 THEN GOTO SK2 

LPRINT TAB<5); I; TAB(I5); VX$<I); TAB(55); 

W LPRINT USTNG "#######"; VX(I) 

SK2 : NEXT I 
LPRINT CHRJ( 12) 

_ LPRINT TAB(5); RTTTLES; TAB(70); "page 3" 

„ LPRINT 

LPRINT TAB(5); "VEHICLE IS ’; 

LPRINT VNAMS; 

LPRINT TAB(30); "MISCELLANEOUS FACTORS’ 
u LPRINT 
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LPRINT TAB(5), "NBR”, TAB(!5); 'CATEGORY", TAB(60). "VALUE” 

LPRINT 

FOR I - 1 TO 39 

LPRINT TAB(5), I; TAB(!5), MF$(T), TAB(55); 

LPRINT USING ”#########.##', MCF(I) 

NEXT I 

LPRTNT CHRS(12) 

LPRINT TAB(5); RTTTLES, TAB(70); "page 4” 

T.PRTNT TAB(5); 'VEHICLE IS ", 

LPRINT VNAMJ; 

LPRINT TAB(30); *NBR CREWS ASSIGNED” 

LPRINT TAB(l), 'SUBSYSTEM*, TAB(20); "CREWS ASSIGNED'; TAB(40); ’CREW SIZE”; TAB(60); 'NBR PERSONNEL” 

LPRINT 

FOR 1 - 1 TO 9 

X - X t INT(CZ(T) • SC(I) + 9999) 

LPRINT TAB(l), SWBSJ<1); TAB(20), CZ(I); TAB(40), SC(I), TAB(60); INT(CZ(I) * SC(I) + .99999) 

NEXT I 

LPRINT TAB(l); TAB(I); "SCHED MANPWR", TAB(60); CZ(ICJ) 

LPRINT : LPRINT TAB(5); 'TOT ORG MAINT PERS direct labor"; TAB<55); X f CZ<10) 

LPRINT : LPRINT TAB(25), 'SUBSYSTEM WEIGHT TABLE- 
T-PRINT 

LPRINT TAB(5); 'Note: weights ire initialized from RAM model” 

LPRINT 

LPRINT TAB( 10), "NBR'; TAB{20); 'SUBSYSTEM”; TAB(50). "WEIGHT" 

FOR I = 1 TO 33 

’IF W(I) - I THEN GOTO SKP 

LPRINT TAB( 10); T; TAB<20), wbs$(2, I); TAB(50), 

LPRINT USING "#####', W(T) 

SKP NEXT I 

LPRINT : LPRINT TAB( 10); 'TOTAL DRY WEIGHT'; TAB(50); VX(l) 

LPRINT CHR$( 12) 

I .PRINT TAB(5); RTITLEJ; TAB(70), "page 5* 

LPRINT 

LPRINT TAB(I); 'VEHICLE IS 
LPRINT VNAMJ; 

LPRINT TAB(20); ’Cost Element Stmetwe': LPRINT 

LPRTNT TAB(5); "Note; costs listed arc direct input and are not computed by the model" 

[-PRINT 

LPRINT TAB(5); 'nbr”, TAB(!5); "WBS", TAB(55); 'Cost (93 M$l* 

LPRINT 

FOR I - I TO 42 

IF wbscc(I) = 2 THEN GOTO skk3 

IF I - 4 OR 1 - 1 1 OR 1 - 12 OR I - 20 OR I - 26 OR I = 36 OR 1 = 42 OR I = 43 OR I = 44 THEN LPRINT 
LPRINT TAB(5); I; TAB{I3); wtw$(l, I); TAB(55); r 
LPRINT USING '######.###'; wbsc(3. I) 

ddc3: NEXT I 

LPRINT CHR$< 12) 

END SUB 

SUB FACCOST 
CLS : COLOR 2 

PRINT TAB(25); "FACILITY nonrecurring COSTS’ 

COLOR 9; PRINT TAB(5); "Note: coats are in milbora of year*; yew; * dollars" 

PRINT : COLOR 13 

PRINT TAB(5); 'FACILITY'; TAB(25); ‘SQ FT/LENGTH"; TAB<45); 'CONSTRUCTION COSTS" 

PRINT ; COLOR 14 
FOR T - I TO 16 

COLOR 14: PRINT TAB(I), F$(I); TAB(30); FSQ(I); TAB(50); 

COLOR 6: PRINT USING ’#######*, FCC(I) 

NEXT 1 

PRINT : COLOR 15 

PRINT TAB(t); "SUBTOTALS”, TAB(50); 

PRINT USING *####.###"; tfee 
COLOR 3 

LOCATE 25 , 25: INPUT 'ENTER RETURN... ”, RET 
CLS : COLOR 2 

PRINT TAB(25); 'FACILITY recurring COSTS” 

COLOR 9 

PRINT TAB(5); "Note: Annual costs are in millions of year"; year, 'dollars. " 
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IF XP(6) - I THEN PRINT TAB(5); 'Lifecycle costs are in constant" ; year; "dollars.’ EUE PRINT TAB(5); 'Life cycle costs are in then year,’, year, 'to', year f XP(4), dollars 
PRINT COLOR 13 

PRINT TAB(5); 'OPERATIONS AND SUPPORT COSTS' PRINT COUOR 9 
PRINT TAB(25), 'ANNUAL COST"; TAB(43); 'LIFE CYCLE COST"; COLOR 14 
PRINT : PRINT TAB(5); 'MATERIAL COSTS', TAB(25); 

PRINT USING ■Wil l##*; MAT; TAB(45); lef * MAT 
PRINT TAB(5); 'CONTRACT COSTS', TAB(25); 

PRINT USING '#### ###’, CNT; TAB{45); Icf * CNT 
PRINT TAB(5); 'PERSONNEL COSTS'; TAB(25); 

PRINT USING '*###.###’, PER, TAB(45); kf * PER 
PRINT TAB(5); 'OTHER O&S COSTS’, TAB(25); 

PRINT USING 'MW.###'; OTH; TAB(45), lef * OTH 

PRINT : COIXJR 1 1 

PRINT TAB(5); 'TOTAL'; TAB(25), 

PRINT USING '####.###'; ftc; TAB(45); lef • ffcc 
PRINT : COLOR 10 

PRINT TAB(5); 'CONSTRUCT COSTS', TAB(25); 

PRINT USING '#######'; tfee; TAB(45); tfee 
PRINT PRINT 

COLOR 12: PRINT TAB(10); 'GRAND TOTAL’; TAB(25); 

COI JOK 13: PRINT USING '####.###'; tfee f flee; TAB<45); lef * flee + tfee 
COLOR 3 

LOCATE 25, 23: INPUT 'ENTER RETURN...', RET 


END SUB 

SUB HYPD1S 
CLS 

PRINT TAB(5); ’HYPERVEL COST MODEL FOR '; VNAMS, ’ OVER A'; XP(4); 'YR SYSTEM LIFE' 

COLOR 3 

PRINT TAB(5); 'Note: Annual costs are in millions of year', year; "dollars ' 

IF XP(6) - I THEN PRINT TAB(5); 'Life cycle costs are in constant", year; 'dollars." ELSE PRINT TAB(5); ’Lifecycle costs are in then year,"; year; 'to'; year + XP(4), dollars 


PRINT : COLOR 15: PRINT TAB(10); ’DEPOT PERSONNEL COSTS' 

PRINT : COLOR 13 

PRINT TAB{1); 'WBS'; TAB{30); 'ANNUAL RECUR COSTS', TAB(30); 'LIFE CYCLE COSTS' 

PRINT : COLOR 12 

ADI - 0: AD2 = 0 

FOR ! - 1 TO 9 

ADI - ADI 1 HP(I) 

AD2 - AD2 4 kf * HP(T) 

PRINT TAB(l); OSCI4(l); TAB(30); HP(I); TAB(50); lef * HP(I) 

NEXT I 

PRINT : COLOR 1 1 

PRINT TAB(1); 'TOTALS'; TAB{30); ADI; TAB(50); AD2 
PRINT 

PRINT : COI OR 2: INPUT 'ENTER RETURN . . RET 


CLS 

PRINT TAB(5); 'HYPERVEL COST MODEL FOR VNAMS; * OVER A*; XP(4); ’YR SYSTEM LIFE' 

COLOR 3 

PRINT TAB(5); 'Note: Annual costs are in millions of year’ ; year, 'dollars.' 

IF XP(6) - 1 THEN PRINT TAB(5); 'Life cycle coats are in constant', year, ’dollars * ELSE PRINT TAB(5); 'Life cycle coats are in then year,*; year; 'to', year ♦ XP<4), \ dollars 

PRINT : COLOR 15: PRINT TAB( 10); ’DEPOT HARDWARE COSTS’ 

PRINT : COLOR 13 

PRINT TAB(l); "WBS', TAB(30); 'ANNUAL RECUR COSTS'; TAB{50); 'LIFE CYCLE COSTS' 

PRINT : COLOR 12 
ADI = 0: AD2 - 0 
FOR I - 1 TO 9 
ADI - ADI F HH(T) 

AD2 = AD2 + lef * HH(I) 

PRINT TAB(I); OSCLtyD; TAB(30), HH(I); TAB(50); kf * HH(T) 

NEXT I 

PRINT : COLOR 1 1 

PRINT TAB(I); 'TOTALS’; TAB(30); ADI; TAB(50); AD2 
PRINT 

PRINT : COLOR 2: INPUT 'ENTER RETURN...'; RET 


CLS 

PRINT TAB(5); ’HYPERVEL COST MODEL FOR VNAMS; ' OVER A’; XP(4); 'YR SYSTEM LIFE' 

COLOR 3 

PRINT TAB(5); 'Note: Annual coats arc in millions of year'; year; 'dollars. ' 

IF XP(6) - I THEN PRINT TAB(5); 'Lifecycle coats are in constant'; year; 'dollars,’ EI^E PRINT TAB(5); ’Life cycle coats are in then year,’; year; 'to'; year f XP(4); dollars 
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PRINT : COLOR 15: PRINT TAB(IO); ’SPARES COSTS' 

PRINT : COLOR 13 

PRINT TAB(I); ’WBS", TAB(20), ’INITIAL SPARES', TAB(40); 'ANNUAL RECUR SPARES’, TAB(60); 'LIFE CYCLE COSTS' 

PRINT : COLOR 12 

ADI - 0: AD2 - 0: AD3 - 0 

FOR I - I TO 9 

ADI - ADI 4 HR (I) 

AD2 - A D2 + lef * HR(I) ( HS(I) 

AD3 - AD3 » HS(!) 

PRINT TAB(I); OSCUfl), TAB(20), HS(I). TAB(40); HR(I); TAB(60); lef * HR(I) 4 HS{T) 

NEXT I 

PRINT : COLOR 1 1 

PRINT TAB(l), 'TOTALS', TAB (20). AD3; TAB(40); ADI, TAB(GO); AD2 
PRINT 

PRINT : COLOR 2: INPUT 'ENTER RETURN...’; RET 


CLS 

PRINT TAB(5); 'HYPERVEL COST MODEL FOR VNAM$, ’ OVER A', XP{4); ’YR SYSTEM LIFE' 

COLOR 3 

PRINT TAB(5); "Note Annual costs are in millions of year*, year, 'dollars " 

IF XP(6) - I THEN PRINT TAB(5); 'Life cycle costs art in constant'; year; 'doilan ' ELSE PRINT TAB(5); *Ufe cycle coats are in then year,’; year; 'to*; year f XP(4); ", dollars 


PRINT : COLOR 15: PRINT TAB(IO), 'DOCUMENTATION COSTS' 

PRINT : COLOR 13 

PRINT TAB(I); 'WBS'; TAB(30); 'ANNUAL RECUR COSTS'; TAB(50); 'LIFE CYCLE COSTS' 

PRINT : CO! OR 12 

ADI = 0: AD2 - 0 

FOR I - l TO 9 

ADI - ADI 4 HD(T) 

AD2 - AD2 1 lef • HD(I) 

PRINT TAB(I); OSCI^f); TAB(30); HD(I); TAB(50); lef * HD(I) 

NEXT I 

PRINT : COIOR 1 1 

PRINT TAB(I); 'TOTALS', TAB(30); ADI; TAB(50); AD2 
PRINT 

PRINT COLOR 2: INPUT 'ENTER RETURN '; RET 


ci^s 

PRINT TAB(5); 'HYPERVEL COST MODEL FOR ', VNAM$, ' OVER A', XP(4), 'YR SYSTEM LIFE' 

COLOR 3 

PRINT TAB(5); 'Note: Annual costs are in millions of year'; year; 'dollars ' 

IF XP(6) ^ 1 THEN PRINT TAB(5), 'Life cycle coats arc in constant', year; 'doilan * ELSE PRINT TAB(5); "Life cycle costs are in then year.'; year; 'to*; year f XP(4). \ doilan 

PRINT : COLOR 15 PRINT TAB(tO); 'ORGANIZATIONAL MAINTENANCE HARDWARE COSTS' 

PRINT : COLOR 13 

PRINT TAB(l), *WBS\ TAB(30); 'ANNUAL RECUR COSTS'; TAB(50); "LIFE CYCLE COSTS’ 

PRINT : COLOR 12 
ADI = 0: AD2 - 0 
FOR I = 1 TO 9 
ADI - ADI I DC(1, 2) 

AD2 - AD2 4 lef * DC(L 2) 

PRINT TAB(I); OSCLSO), TAB(30); DC(I, 2), TAB(50); lef * DC(T, 2) 

NEXT I 

PRINT : COIOR 1 1 

PRINT TAB(l); 'TOTALS'; TAB(30); ADI; TAB<50); AD2 
COIOR 2 

PRINT : INPUT 'ENTER RETURN..'; RET 
CLS 

PRINT TAB(5); 'HYPERVEL COST MODEL FOR VNAM$; ’ OVER A*; XP(4); 'YR SYSTEM LIFE' 

COLOR 3 

PRINT TAB(5), 'Note: Annual costs are in millions of year’, year; 'dollars ’ 

IF XP(6) - 1 THEN PRINT TAB(5); "Lifecycle costs are in constant'; year; 'doilan " ELSE PRINT TAB(5); "Life cycle costs are in then year,*; year; 'to"; year 4- XP(4); ', doilan 

PRINT : COIOR 15: PRINT TAB{10); 'SUPPORT EQUIPMENT' 

PRINT : COLOR 13 

PRINT TAB(l); 'WBS'; TAB(20); 'SUPPORT EQUIP'; TAB(40); 'REPLACE SPT EQUIP'; TAB(60); 'LIFE CYCLE COSTS' 

PRINT ; COIOR 12 

ADI - 0: AD2 - 0: AD3 = 0 

FOR I = 1 TO 9 

ADI - ADI 4 DC(I, 9) 

AD2 - AD2 f lef * DC(I, 9) 4 DC(I, 7) 

AD3 = AD3 t DC(I, 7) 

PRINT TAB(l); OSQ^(I)i TAB(20); DC(I, 7); TAB(40); DC(I, 9); TAB{60); lef * DC(f, 9) f DC(I, 7) 

NEXT I 

PRINT ; COLOR 1 1 

PRINT TAB(l), 'TOTALS'; TAB(20); AD3; TAB(40); ADI; TAB(60), AD2 
PRINT 



PRINT : COIvOR 2: INPUT "ENTER RETURN...", RET 


END SUB 

SUB LOGS 
CLS 

SMI - SI f NC * NTMWC t NGSE f N1 i N3 t MI t M3 4 T1 4 SI 4 NTT.SM 
SM2 - RS I RC * RIMWC t RGSE + N2 ♦ N4 t M2 ♦ M4 t T2 4 S2 I RILSM t DI 
SM3 - SMI + SM2 
SM4 - SMI I Icf * SM2 

PRINT TAB(5), "LOGISTICS COST MODEL FOR ", VNAMJ; " OVER A"; XP(4); "YR SYSTEM LIFF." 

COT -OR 3 

PRINT TAB(5), "Note: Annual costs are in millions of year"; year, "dollars " 

IF XP(6) ^ I THEN PRINT TAB(5); 'Lifecycle costs arc in constant" ; year; "dollars." ELSE PRINT TAB{5); "Life cycle costs are in then year,’; year; "to"; year + XP(4), ", dollars. 
PRINT : COLOR 10 

PRINT TAB(I); TAB(18); "NON-RECURRING"; TAB(35); "RECURRING". TAB(50), "TOTAL 1st YR"; TAB(68); "LCC" 

PRINT TAB(l); "CATEGORY"; TAB(18); "ANNUAL COST"; TAB(33); "ANNUAL COSTS’; TAB(50); "ANNUAL COST", TAB(66); "COSTS' 

PRINT : COLOR 15 

PRINT TAB(l), "SPARES'; TAB(20); SI; TAB(35); RS; TAB(50); SI + RS; TAB(65); SI 4 Icf * RS 
PRINT 

PRINT TAB(I); "CONSUMABLES"; TAB(20); NC; TAB(35); RC; TAB(50); NC 4 RC. TAB(65); NC + lef * RC 
PRINT 

PRINT TAB(l); "TNV MGMT & WAREHSE" , TAB(20), NTMWC; TAB(35); RIMWC; TAB(50); NTMWC t RIMWC; TAB(G5); NIMWC 4 lef * RIMWC 
PRINT 

PRINT TAB(l); 'ORG TRAINING", TAB(20); NT; TAB(35); N2; TAB(50), NI 4 N2; TAB(65); NI 4 lef * N2 
PRINT TAB<1); "DEPOT TRAINING"; TAB(20); N3; TAB(35), N4; TAB{50); N3 +- N4; TAB(65), N3 4 lef * N4 
COI-OR 14 

PRINT TAB(5); 'TOT TRAINING", TAB(23); NI t N3; TAB(38), N2 I- N4; TAB(53); NI + N2 + N3 + N4; TAB(68); NI 4 N3 4 lef * (N2 + N4) 

PRINT : COLOR 15 

PRINT TAB(l); 'ORG DOCUMENT"; TAB(20), Ml. TAB(35); M2. TAB(50); Ml 4 M2; TAB(65); Ml 4 lef * M2 
PRINT TAB{1); 'DEPOT DOCUMENT"; TAB(20), M3; TAB<35); M4; TAB(50); M3 4 M4; TAB(65); M3 4 lef * M4 
COLOR 14 

PRINT TAB(5), "TOT DOCUMENT"; TAB(23); MI 4 M3; TAB(38); M2 4 M4; TAB{53); Ml t M2 4 M3 4 M4; TAB{68); MI 4 M3 4 kf * (M2 t M4) 

PRINT : PRINT : COLOR 3 
INPUT "ENTER RETURN . . . RET 
CLS 

PRINT TAB(5); "IOGISTICS COST MODEL FOR ", VNAM$; " OVER A"; XP(4); *YR SYSTEM LIFE' 

COLOR 3 

PRINT TAB(5); "Note: Annual costs are in millions of year*; year, 'dollars. ' 

IF XP(6) - I THEN PRINT TAB(5); ’Life cycle costs are in constant", year; "dollars * ELSE PRINT TAB(5); 'Lifecycle coats are in then year,"; year; "to"; year + XP(4); dollars 

PRINT PRINT 
PRINT : COLOR 10 

PRINT TAB(I); TAB(I8); "NON-RECURRING"; TAB(35); "RECURRING"; TAB(50); 'TOTAL 1st YR'; TAB(68); "LCC 

PRINT TAB(l); "CATEGORY"; TAB08), "ANNUAL COST", TAB<33); 'ANNUAL COSTS", TAB<50); "ANNUAL COST"; TAB(66); "COSTS" 

PRINT : COLOR 15 

PRINT TAB(I); "DEPOT MAINTENANCE", TAB(35); DI; TAB{50); DI; TAB(65); lef * DI 
PRINT 

PRINT TAB(I); "TRANSPORTATION", TAB(20); Tl; TAB(35); T2; TAB(50); T1 4 T2; TAB(65); T1 4 lef *T2 
PRINT 

PRINT TAB(l); "GRND SPT EQUIP"; TAB(20); NGSE; TAB(35); RGSE; TAB(50); NGSE 4 RGSE; TAB(65); NGSE 4- lef * RGSE 
PRINT TAB(l); "DEPOT SPT EQUIP"; TAB(20); SI; TAB(35); S2; TAB(50); St 4 S2; TAB{65); SI 4 lef * S2 
COIOR 14 

PRINT TAB(5); "TOT SPT EQUIP"; TAB(23); SI 4- NGSE; TAB<38); S2 + RGSE; TAB(53); SI 4 S2 4 NGSE 4 RGSE; TAB(68); SI 4 NGSE 4 lef * (S2 f RGSE) 

PRINT : COLOR 15 

PRINT TAB(l); "TL5 MGMT"; TAB(20); NTLSM; TAB(35); RILSM; TAB(50); NIL5M 4- RILSM; TAB(65); NILSM 4- lef * RILSM 
PRINT ; COLOR 14 

PRINT TAB(5); "TOTALS"; TAB{20); SMI; TAB(35); SM2; TAB(50); SM3; TAB(65); SM4 

COLOR 3: PRINT : PRINT 

INPUT "ENTER RETURN . ' ; RET 

END SUB 

SUB OSC 
CLS : COLOR 2 

PRINT TAB(25); "OPERATING AND SUPPORT COSTS" 

PRINT : COLOR 6 

PRINT TAB(15); "Note: costa are in millions of"; year; "dollars' 

PRINT ; "" 

PRINT : COI-OR 1 1 

PRINT TAB(15); "Indirect Coats" 

PRINT : COIOR 15 
PRINT ; "■ 

PRINT ; TAB(10); "Aircrew ’; 

PRINT USING ’####.###"; INT(ID<1) / 1000) / 1000 
PRINT TAB(IO); 'Command Staff *; 
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PRINT USING m *m. m w ; TNT(TD(2) / 1 000) / 1 000 
PRINT T AB( 10),* Security * ; 

PRINT USING '####.###'; INT(ID<3) i 1000) ! 1000 
PRINT TAB( 10); 'other 

PRTNT USING '####.###', INT(ID<4) / 1000) f 1000 
PRINT : COLOR 9 
PRINT TAB(5), 'TOTAL 

PRINT USING ’#######', INT((ID(I) t TD<2) 1 TD{3) f TD(4)) / 1000) / 1000 
PRINT : COT- OR 12 

LOCATF 25, 25: INPUT 'ENTER RETURN... ", RET 
CLS 

PRINT : COLOR 13 

PRINT TAB(5); 'CATEGORY', TAB(25); 'MATNTPER*; TAB(40); "MAINTMAT'; TAR(57); 'DEPPER'; TAB(67); 'DEPMAT' 

PRINT : COLOR 14 
FOR l = 1 TO 9 

COLOR 7; PRINT TAB(l); OSCT4(I); TAB(25); 

COIOR 14; 

PRINT USING '####.###’; INT(DC(I, I) / 1000) / 1000, TAB(40); INT(DC(I, 2) / 1000) / 1000; TAB<55). INT(DC(I, 3) / 1000) / 1000; TAB(65); INT(DC(I, 4) / 1000) / 1000 
TOTH(I) = DC(I, 1) h T>C(L 2) + 1X1(1, 3) + 1X1(1. 4) + DC(I, 5) + DC(I, (5) f DC(I, 7) + 1X1(1, 8) f DQI, 9) 

TOTV(I) - DC(1, I) + DC(2, 0 + 1X1(3, I) f 1X1(4, I) + DC(5, 1) + 1X1(6, 0 + 1X1(7, I) t DC(8, I) + DC(9, I) 

NEXT! 

PRINT : COLOR 9 

PRINT TAB<1); ’TOTAL’; TAB(25); 

PRTNT USING '*### ###'; INT(TOTV(l) / 1000) / 1000; TAB(40). INT(TOTV(2) / 1000) / 1000; TAB(55); INT(TOTV(3) (1000) / 1000; TAB(65), INT(TOTV(4) / 1000) / 1000 
COLOR 11; LOCATE 20. 10 PRINT ’NOTE: The output « in millions of year'; year; ‘dollar}.' 

COLOR 12: LOCATE 25 . 25: INPUT 'ENTER RETURN \ RET 
CLS 

PRINT ; COLOR 13 

PRINT TAB(5); ’CATEGORY’; TAB(25); 'REPSPARE', TAB(43), 'DATA'. TAB(57); *SUPP EQP*; TAB(67); 'INITSPR' 

PRINT : COLOR 14 
FOR I - 1 TO 9 

COIOR 7, PRINT TAB(I); OSCU(I); TAB(25); 

COLOR 14: PRINT USING '#### ###', INT(DC(I, 5) / 1000) / 1000; TAB(40); INT(DC(L 6) / 1000) i 1000; TAB(55); INT(DC(L 7) / 1000) / 1000; TAB(65); 1NT(IX!(!, 8) 
/ 1000 ) / 1000 
NEXT I 

PRINT : COIOR 9 

PRINT TAB(l); 'TOTAL', TAB(25); 

PRINT USING '####.###■; INT(TOTV(5) / 1000) / 1000, TAB(40); INT(TOTV(6) / 1000) / 1000; TAB(55); INT(TOTV(7) / 1000) / 1000; TAB(65); INT(TOTV(8) / 1000) / 1000 
COLOR 11: LOCATE 20, 10: PRINT ’NOTE: The otfput is in millions of year'; year; ’dollars.' 

PRINT : COLOR 12 ^ * 1 

LOCATF 25, 25: INPUT 'ENTER RETURN *, RET 
CLS 

PRINT ; COIOR 14 

PRINT TAB(5); 'CATEGORY'; TAB(25); 'REPL SUP EQP TAB(43); 'TOTAL' 

PRINT : COLOR 14 
FOR I = 1 TO 9 

COLOR 7: PRINT TAB(l); OSCLS(I); TAB(25); 

COLOR 14; PRINT USING ’####.###'; INT(DC(I, 9) / 1000) / 1000; TAB(40); 

COLOR 10: PRINT USING ’####.###'; INT(TOTH(I) / 1000) / 1000 
NEXT! 

PRTNT : COLOR 9 

PRINT TAB(l), 'TOTAL', TAB(25); 

PRINT USING INT(TOTY(9) / 1000) / 1000, TAB(40); 

COIOR 7; PRINT USING *#### ###', INT((TOTH(l) + TOTH(2) + TOTH(3) + TOTH(4) + TOTH(5) + TOTH (6) + TOTH(7) +- TOTH(8) »■ TOTH(9)) / 1000) / 1000 
COLOR II: LOCATE 20, 10: PRINT 'NOTE: The output a m millions of year’; year; 'doflan.* 

PRTNT : COLOR 12 

LOCATE 25, 25: INPUT 'ENTER RETURN . . \ RET 
END SUB 

SUB PHASE 
CLS COLOR 2 

PRINT TAB(5); 'COST SUMMARY FOR '; VNAM$; * OVER A'; XP(4); *YR SYSTEM LIFE' 

COLOR 3: PRINT 

IF XP(6) - I THEN PRINT TAB(5); 'Note: coats are in millions of *; year; ' dolUn' 

print color 13 

PRINT TAB(l); 'PHASE'; TAB{15); 'DEV COST'; TAB(30); 'AOQ COST", TAB(45); '0*S COST'; TAB(60); "PHASEOUT COST’ 

PRINT : COIOR 14 

PRINT TAB(l); 'HARDWARE'; TAB(I5); TDHC 

PRINT TAB(l); 'SOFTWARE'; TAB(I5); TDSC 

PRINT TAB(l); 'FACILITIES'; TAB(30); tfcc, TAB(45); ftc 

PRINT TAB<1); 'MANPOWER'; TAB(15); TDMC 

PRINT TAB(l); 'MISC'; TAB(15); TDMSCC 

TDC = TDHC + TDSC f TDMC + TDMSC 

PRINT : COIOR 12 

PRINT TAB<I); 'TOTALS'; TAB(1 5); TDC 
PRINT ; COIOR 1 1 
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PRINT TAB(I); TOTAL LIFE CYCLE COST'; TC 
COLOR 3 

LOCATE 22, 10: INPUT 'ENTER RETURN \ RET 
F.ND SUB 
SUB PRINTACQ 

LPRTNT TAB(5); RTITIES; LPRINT 

LPRINT TAB(20); ’ACQUISITTON COSTS - PREVAIL MODEL - wgt driven' 

LPRINT 

[.PRINT TAB(5), 'Note: costs are in millions of year"; year; "dollars' 

LPRINT TAB(5); 'WBS', TAB(25); "DESIGN ENG", TAB(40); 'TEST* EVAL"; TAB(55); 'UNIT PROD", TAB (67), "TOTALS" 

LPRTNT 
TOT - 0! 

FOR I - 1 TO 15 

LPRTNT TAB(I); WB$<I); TAB(25); 

’LPRINT USING ’####.###'; TNT(DE(T) * 1000) / 1000, TAB(40); INT(TE(D * 1000) / 1000; TAB(55); TNT(UP(I) * 1000) / 1000; TAB(65); TNT((DE(I) + TE(T) 1 UP(T)) * 
1000) / 1000 

LPRINT USTNG '####.###', DE(T); TAB(40); TE(T); TAB(55); UP(T); TAB(65), DE(T) + TE(I) + UP(T) 

TOT = TOT + INT((DF.(I) f TE(T) + UP(I» * 1000) / 1000 
NEXT I 
LPRINT 

LPRINT LPRINT TAB(I); "SUBTOTALS'. TAB(25); 

LPRINT USTNG "####.###"; SDE; TAB<40); STE, TAB<55); SUP; 

LPRINT : LPRINT TAB(I); "TOTAL COSTS FOR"; XP(1); "VEHICLES', 

LPRINT USING "#########"; TAB(53); TPR; TAB(65); TPR + SDE + STE 


LPRINT 'note prxxluction costs are based upon a 90% learning curve’ 

LPRINT "with the unit production costs computed far the 5th unit" 

LPRINT CHRJ( 12) 

END SUB 

SUB PRINTFAC 

LPRINT TAB(5); R77TLES, TAB(65); DATES 
LPRINT 

LPRINT TAB(25); "FACILITY COSTS’ 

IMPRINT 

LPRINT TAB(25); ‘F ACTIVITY nonrecurring COSTS" 

LPRINT TAB(5); "Note: coats are in millions of year"; year; " dollars" 

LPRINT 

LPRINT TAB(5); "FACILITY"; TAB(25); "SQ FT/LENGTH"; TAB(45); "CONSTRUCTION COSTS' 

LPRINT 

FOR I - I TO 16 

LPRINT TAB(l), FS(I); TAB(30); FSQW; TAB(50); 

LPRINT USING '#######", FCC(I) 

NEXT! 

LPRINT 

LPRINT TAB(I); "SUBTOTALS’, TAB(50); 

LPRINT USING ’#### ###’; tfee 

LPRINT : LPRINT TAB<25); ’FACILITY recurrmg COSTS" 

LPRINT TAB(5); ‘Note: Annual coats are in millions of year"; year; "dot Lars. * 

IFXP{6) - 1 THEN LPRINT TAB(5); 'Lifecycle costs are inconstant'; year; 'dollars " ELSE LPRINT TAB(5); "Life cycle coals are in then year,’; year; 'to'; year 4 XP(4), *, dollars. 


LPRINT 

LPRINT TAB(5); "OPERATIONS AND SUPPORT COSTS’ LPRINT 
LPRINT TAB(25); "ANNUAL COST"; TAB(43); "LIFE CYCLE COST' 
LPRINT : LPRINT TAB(5); "MATERIAL COSTS", TAB(25); 

IPRINT USING '#### ###'; MAT; TAB<45), lef • MAT 
LPRINT TAB(5), 'CONTRACT COSTS’; TAB(25); 

LPRINT USING "#######"; CNT; TAB<45); lef * CNT 
LPRTNT TAB(5); 'PERSONNEL COSTS’; TAB(25); 

LPRINT USING '#######"; PER; TAB<45). lef * PER 
LPRINT TAB(5); 'OTHER OftS COSTS'; TAB<25); 

LPRINT USING "#### ###", OTH; TAB<45), lef * OTH 
LPRINT 

LPRINT TAB(5); 'TOTAL"; TAB(25); 

I PRINT USING '#### ###*; flee; TAB<45); lef • flee 
LPRINT 

LPRINT TAB( 10); "GRAND TOTAL"; TAB(25); 

LPRINT USING ’####.###’, tfee f flee; TAB<45), lef * flee t tfee 

LPRINT CHR* 12) 

END SUB 

SUB PRINTHYP 
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LPRINT TAB(5), R TITLES; TAB(65); DATES 

LPRINT TAB(5); "HYPERVEI- COST MODEL FOR \ VNAMS; * OVER A’, XP(4); ’YR SYSTEM LIFE* 

LPRINT TAB{5); 'Note: Annual costs arc in millions of year*; year; 'dollars.* 

TFXP(6) - 1 THEN LPRINT TAB(5), "Lifecycle costs arc in constant*; year; 'dollars * ELSE LPRINT TAB(5); "Life cycle costs are in then year,’; year; ‘to* . year t XP(4). dollars, 


I -PRINT ; LPRTNT TAB(IO). 'DEPOT PERSONNEL COSTS* 

LPRINT 

LPRTNT TAB(4); "WBS"; TAB(30). ’ANNUAL RECUR COSTS’; TAB(50); ’LIFE CYCLE COSTS* 

LPRINT 

ADI - 0: AD2 - 0 
FOR I - 1 TO 9 
ADI - ADI i HP(T) 

AD2 - AD2 t Icf * HP(I) 

LPRINT TAB(4); OSCL$(l); TAB(30); HP(I), TAB{50); lef * HP(I) 

NEXT I 
LPRINT 

LPRINT TAB(4); ’TOTALS’; TAB(30); ADI; TAB{50); AD2 
LPRINT 

LPRINT : LPRTNT TAB(IO); ’DEPOT HARDWARE COSTS’ 

LPRINT 

LPRTNT TAB(4) f *WBS*; TAB(30); ’ANNUAL RECUR COSTS’; TAB{50); ’LIFE CYCLE COSTS’ 

LPRINT 

ADI - 0: AD2 - 0 
FOR T - I TO 9 
AD! - ADI 1 HH(I) 

AD2 = AD2 f Icf * HH(T) 

LPRINT TAB{4); 0SC!4(1); TAB(30); HH(I); TAB(50), Icf * HH(I) 

NEXT! 

LPRINT 

LPRINT TAB(4); ’TOTALS*, TAB{30); ADI; TAB(50), AD2 
LPRTNT CHRK 12) 

LPRINT TAB(5), RTTTLES; TAB(70), ’page 2* 

LPRINT TAB(5); * HYPER VEL COST MODEL FOR VNAMS; ' OVER A*; XP(4); *YR SYSTEM LIFE* 

LPRINT TAB(5); *Notc: Annual costs are in millions of year’; year; 'dollars.’ 

IE XP(6) - 1 THEN LPRINT TAB(5); ’Life cycle costs arc in constant* ; year; 'dollars. * ELSE LPRINT TAB(5); ’Life cyck costs arc in then year,*; year; 'to* ; year + XP(4), * , dollars 

LPRINT : LPRINT TAB( 10); 'SPARES COSTS' 

LPRINT 

LPRINT TAB(l); 'WBS'; TAB<21); * INITIAL SPARES’, TAB(40); ’ANNUAL RECUR SPARES’; TAB<60); 'LIFE CYCLE COSTS’ 

LPRINT 

ADI - 0: AD2 = 0 
FOR I - 1 TO 9 
ADI - ADI t HR(T) 

AD2 - AD2 f Icf * HR(I) t HS{I) 

AD3 - AD3 f HS(T) 

LPRINT TAB(l); 05CI-S(1); TAB(2I); HS(I); TAB(40); HR(T); TAB(60); Icf * HR(I) + HS(I) 

NEXT I 
LPRINT 

LPRINT TAB(1); ’TOTAIV, TAB(21); AD3; TAB(40); ADI; TAB(GO); AD2 
LPRINT 

LPRINT : LPRINT TAB{ 10); ’DOCUMENTATION COSTS’ 

[-PRINT 

LPRINT TAB(4); ’WBS‘; TAB(30); 'ANNUAL RECUR COSTS’, TAB(50); ’LIFE CYCLE COSTS’ 

LPRINT 

ADI = 0; AD2 - 0 
FOR 1 - 1 TO 9 
ADI - ADI 4 HD(T) 

AD2 - AD2 f Icf* HD(I) 

LPRINT TAB(4); OSCUU); TAB(30); HD(I); TAB(50); Icf • HD(I) 

NEXT I 
LPRINT 

LPRINT TAB(4); 'TOTALS’; TAB(30); ADI; TAB(50); AD2 
LPRINT 

LPRINT TAB( 10), ’SUPPORT EQUIPMENT’ 

LPRINT 

LPRINT TAB(4); *WBS’; TAB(20), ’SUPPORT EQUIP'; TAB(40); ’REPLACE SPT EQUTP’; TAB(60); ’LIFE CYCLE COSTS’ 

IJ*RINT 

ADI - 0: AD2 - 0: AD3 - 0 

FOR I = 1 TO 9 

ADI - ADI t DC(I, 9) 

AD2 - AD2 4 Icf * DC(I, 9) 4 - DC(I, 7 ) 

AD3 = AD3 4 DC(T, 7) 

LPRINT TAB(I); 0SCI4(I); TAB(20); DC(I, 7); TAB{40); DC(1, 9); TAB(60); Icf * DQI, 9) 4 DC(I, 7) 

NEXT I 
LPRINT 

LPRINT TAB(l); ’TOTAI-S’; TAB(20); AD3; TAB{40); ADI; TAB(60); AD2 
I -PRINT CHR$(12) 
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I, PRINT TAB(5), 'HYPER VELOCITY COST MODEL - RAD costs* 

LPRINT TAB(5), RTITLFS, TAB(70), 'page 3* 

I. PRINT 

i. PRINT TAB(5), 'Note costs are in MILLIONS of year*, year; 'dollars’ 

LPRINT : LPRINT 

LPRINT TAB(5), 'ENGINEERING LABOR*; TAB(40); 

LPRINT USING ’######. Ml* , rdc(I) 

LPRINT 

LPRTNT TAB(5), ’TOTAL TOOLING LABOR*; TAB(40), 

LPRINT USTNG *######.###*, rdc(2) 

LPRINT 

LPRINT TAB(5), ’OTHER DIRECT CHARGES*. TAB(40), 

LPRTNT USTNG *######*##’, rdc(3) 

LPRINT 

LPRINT TAB(5); ’FIRST AIRFRAME MATERIALS*; TAB(40); 

LPRTNT USTNG ’######.###*; rtfc(4) 

I, PRINT 

LPRINT TAB(5); ’QUALITY CONTROL’; TAB(40); 

LPRTNT USTNG *######.###*; rdc(5) 

LPRTNT 

LPRINT TAB(5); ’TOTAL*, TAB(40); 

LPRINT USTNG \ rdc(l) I rdc(2) + rtlc(3) i rdc(4) f rdc(5) 

LPRINT 

LPRINT 

LPRINT TAB{5); ’HYPER VELOCITY COST MODEL - RAD costs" 

LPRINT TAB (5); ’breakdown of engineering labor coats by subsystem* 

LPRINT TAB(5), "Note: costs are in MILLIONS of year*, year; ’doll an’ 

LPRINT 

LPRINT TAB(5); 'WBS*; TAB(50); ’LABOR COSTS’ 

LPRINT 
TC — 0 

FOR T = I TO 16 

IF I - 8 OR I - 9 OR I = 10 OR I « II THEN GOTO SKP2 
IF I > 7 THEN IK = I - 4 ELSE IK - I 
LPRINT TAB( I), HYPS(D; TAB(50); 

LPRTNT USING *#######.###’; mbc(TK) 

TC - TC t mbc(TK) 

SKP2: NEXT I 
LPRINT 

LPRINT TAB(I); "TOTAL*. TAB(50); 

LPRINT USTNG *####. ###*, TC 
LPRINT CHR$(I2) 

END SUB 

SUB PRINTLOG 
CIS 

LPRINT TAB(5); R TITLES: LPRINT TAB(65). DATE$ 

SMI — SI T NC I NTMWC f NGSE f NI f N3 + Ml f M3 4 T1 4- SI + NILSM 
SM2 - RS * RC 4 RIMWC 4 RGSE + N2 I N4 f M2 I M4 + T2 t S2 + RILSM 4 DI 
SM3 = SMI 4 SM2 
SM4 - SMI 1 lcf * SM2 

LPRINT TAB(5); 'ITX3ISTICS COST MODEL FOR '; VNAMS; * OVER A*; XP(4); *YR SYSTEM LIFE' 

LPRINT 

LPRINT TAB(5); *Note: Annual costs arc in millions of year*; year; ’dollars * 

IF XP(6) — 1 THEN LPRINT TAB(5); ’Life cycle coats are in constant"; year; ’dollars,* ELSE LPRINT TAB(5); "Life cycle costs are in then year,"; year; * to’; year 4 XP<4); *, dollars. 
LPRINT COlX)R 10: LPRTNT 

LPRINT TAB(l); TAB(18); * NON- RECURRING*; TAB(35); ‘RECURRING*; TAB(50); 'TOTAL 1st YR*; TAB<68); 'LCC* 

LPRINT TAB<1); "CATEGORY*; TAB<IS); ’ANNUAL COST; TAB<33); 'ANNUAL COSTS"; TAB(50); "ANNUAL COST"; TAB(66); "COSTS" 

LPRINT : COIX3R 15 

LPRINT TAB(l); "SPARES"; TAB(20); ST; TAB(35); RS; TAB{50); SI + RS; TAB(65); SI + lcf * RS 
LPRINT 

LPRTNT TAB(I); 'CONSUMABLES*; TAB(20); NC; TAB<35); RC; TAB<50); NC 4 RC; TAB(65); NC f kf * RC 
U»RINT 

LPRINT TAB(l); *TNV MGMT A WAREHSE'; TAB(20); NTMWC; TAB<35); RIMWC; TAB(50), N1MWC + RIMWC; TAB(65); NTMWC 4 lcf * RIMWC 
LPRINT 

LPRINT TAB(l); *ORG TRAINING"; TAB(20); NI; TAB(35); N2; TAB(50); NI + N2; TAB(65); NI 4 lcf * N2 
LPRINT 

LPRINT TAB(I); 'DEPOT TRAINING*; TAB(20); N3; TAB(35); N4; TAB(50); N3 4 N4; TAB(65); N3 + lcf * N4 
LPRINT 

LPRINT TAB(5); ’TOT TRAINING", TAB(23>; NI + N3; TAB(38); N2 + N4; TAB{53); NI + N2 + N3 -4 N4; TAB(68); NI + N3 + lcf * (N2 f N4) 

LPRINT : LPRINT 

LPRINT TAB(I); *ORG DOCUMENT*; TAB(20); MI; TAB(35); M2; TAB(50); Ml 4 M2; TAB(65); MI L lcf * M2 
IJ*RINT 

LPRINT TAB(l); ’DEPOT DOCUMENT*; TAB(20); M3; TAB(35); M4; TAB{50); M3 4 M4; TAB(65); M3 + lcf * M4 
LPRINT 
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I .PRINT T AB(5) ; "TOT DOCUMENT'; TAB(23); M! t M3, TAB(3$); M2 f M4; TAB(53>, Ml f M2 * M3 ( M4, TAB(68). MI + M3 t tcf * (M2 f M4) 

[.PRINT : LPRINT 

LPRINTTAB(I); 'DEPOT MAINTENANCE'; TAB(35); Dl; TAB(50); 01; TAB(65), lcf * D1 
LPRINT 

LPRINT TAB(I); ’TRANSPORTATION' ; TAB(20); TI ; TAB(35); T2; TAB(50); T1 I T2; TAB(65), T1 * lcf * T2 
[.PRINT 

LPRINT TAB(I); "GRND SPT F.QUTP', TAB(20); NGSE, TAB(35), RGSE; TAB(50); NGSE » RGSE; TAB(65); NGSE t l c f * RGSE 
r.PRlNT 

LPRINT TAB(I). 'DEPOT SPT EQUIP’, TAB(20), SI; TAB(35); S2; TAB(50)> St + S2, TAB(65); SI + lcf * S2 
LPRINT 

LPRINT TAB(5); 'TOT SPT EQUIP', TAB(23); SI f NGSE, TAB(38); S2 ♦ RGSE; TAB(53); SI I S2 i NGSE f RGSE; TAB(68); SI + NGSE f lcf * (S2 + RGSE) 

LPRINT : LPRrNT 

LPRINT TAB(I); ’I1.S MGMT’, TAB(20); NILSM, TAB(35), RII.SM; TAB(50); NT1.5M t RII.SM, TAB(65), NTI.SM + lcf * RTLSM 
LPRINT : LPRINT 

LPRTNT TAB(5); ’TOTAI.S’; TAB(20); SMI; TAB(35); SM2; TAB(50). SM3; TAB(65); SM4 
LPRINT CHRJ( 12) 

END SUB 

SUB PRINTMAN 

LPRINT TAB(5); RTTTLEj; TAB(65); DATES 
LPRINT 

IF FLAG - l THEN 

LPRINT TAB(5); 'ORG MAINT MANPOWER COSTS FOR '; VNAMJ; ' OVER A'; XP(4); 'YR SYSTEM LIFE* 

LPRINT . ; . 7 

LPRINT TAB(5); 'Note: costs air in millions of year*; year; 'dollars.' 

IF XP(6) - I THEN LPRINT TAB(5); 'Life cycle costs arc in constant'; year; 'dollars.' ELSE LPRINT TAB(5); "Life cycle coats are in then year,*; year; "to'; year + XP<4); \ dollars 
LPRINT 

LPRINT TAB(l); *WBS*; TAB(35); ‘ANNUAL MAINT COSTS', TAB(60); ‘LIFE CYCLE COSTS’ 

LPRINT 

FOR I = 1 TO 33 

IE AMC(2, I) > 0 THEN LPRINT TAB(t); wbsj<2, I); TAB(45); AMC(2, I ); TAB(65); MC(2, I) 

NEXT I 

Y - in* * SMP * (40 * 52 * XCF(5)) > 1000000 

IF SMP > 0 THEN LPRINT TAB(I); 'SCHED MAINT*; TAB(45); Y, TAB<65); lcf * Y 
[.PRINT 
END IF 


IF FLAG - 0 THEN 

SWBS$<!) = 'Structural’: SWBS$(2) = 'Fud/0*id Tanks’ SWBS$(3) = 'Thcrmal/Tiles-; SWBS$(4) = ’Propulsion’ 

SWBSK5) - ’Powermiectrical': SWBSJtf) - 'Mechanical Sys': SWBS$(7) = ’Avionics': SWBS$(8) = ‘ECS/Life Support' 

SWBSJ(9) - ‘Auxiliary Systems' 

LPRINT TAB(5); 'ORG MAINT MANPOWER COSTS FOR VNAMJ, ’ OVER A‘; XP(4); 'YR SYSTEM LIFE' 

LPRINT 

LPRINT TAB(5); 'Note: costs are in millions of year"; year; 'dollars.’ 

IF XP(6) = 1 THEN LPRINT TAB(5); 'Life cycle costs are in constant’; year; ’dollars * ELSE PRINT TAB(5); ‘Lifecycle costs arc in then year,'; year; ’to"; year + XP(4); dollars 


[.PRINT 

LPRINT TAB(l); *WBS“; TAB(35); ’ANNUAL MAINT COSTS'; TA8(60); ‘LIFE CYCLE COSTS* 

LPRTNT 

FOR I - I TO 9 

Y - inx * INT(C7(I) * SC(T) + .99999) * (40 * 52 * XCF(5)) / 1000000 

IF Y > 0 THEN LPRINT TAB<1); SWBS$<I), TAB(3 5); Y; TAB(GO); lcf * Y 
NEXT I 

Y - inx * CZ(10) * (40 * 52 * XCF(5)) / 1000000 

IF CZ(10) > 0 THEN LPRINT TAB(1); ’SCHED MAINT’, TAB<35); Y; TAB(60); lcf * Y 
END IF 

LPRINT TAB(l); 'TOTALS FOR DIRECT LABOR'; TAB(45), AMMC; TAB(63); TMMC 
LPRINT CHR$( 12) 

LPRINT TAB(5); R TITLES; TAB(70); 'page 2' 

LPRINT 

LPRTNT TAB(5); 'ORG MAINT MANPOWER COSTS FOR *; VNAMJ; * OVER A'; XP(4); ’YR SYSTEM LIFE' 

LPRINT 

LPRINT TAB(5); "Note: coats are in millions of year*; year; 'dollars ’ 

IF XP(6) - 1 THEN LPRINT TAB(5); 'Life cycle coats are in constant'; year; 'dollars.' ELSE LPRINT TAB(5); 'Lifecycle costs are in then year,"; yew; 'to'; year + XP<4); '.doUan 

LPRINT . - 1 

LPRINT TAB(1); 'MAINTENANCE OVERHEAD’; TAB(25); ’ANNUAL COST'; TAB(45); T.CC' 

LPRINT 
FOR I = 1 TO 9 

I .PRINT TAB(l); OMO$(I); TAB(25); OMO(T); TAB(45); lcf * OMO(I) 

NEXT I 
I.PRINT 
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I.PRTNT TAB(I); -SUBTOTAL'; TAB(25), TOMO, TAB(45); Icf * TOMO 
I.PRINT 

T PRINT TAB(I); 'DIRECT LABOR’, TAB(25); AMMC. TAB(45); TMMC: T .PRINT 
LPRINT TAB(l), 'TOTALS’, TAB(25); AMMC + TOMO; TAB(45); TMMC i Icf • TOMO 
LPRrNT CHR$(12) 

END SUB 

SUB PRINTSYS 

{.PRINT TAB(5), R TITLES; TAB(65); DATES 
LPRINT 

LPRINT TAB(5); "SYSTEM SUPPORT COSTS FOR VNAMS; ’ OVER A'; XP(4); ’YR SYSTEM LIFE' 

LPRINT TAB(5); 'Note; Annual costs are in millions of year* , year; ’dollars * 

IF XP(6) - 1 THEN LPRINT TAB(5); "Life cycle costs are in constant", year; 'dollars ’ ELSE LPRINT TAB(5); 'Life cycle costs are in then year,”; year; "to" ; year f XP(4); ' , dollars 


LPRINT 

LPRINT TAB(5); TAB(25); 'ANNUAL'; TAB(45); 'LCC' 

LPRINT TAB(3), ’CATEGORY'; TAB(25); ’COSTS'; TAB(45); 'COSTS' 

LPRINT 

LPRINT TAB(l); 'SUPPORT STAFF' 

’LPRINT TAB(3); 'AIRCREWS'; TAB(25); AC; TAB(45); krf * AC 
’LPRINT TAB(3), 'CMD STAFF', TAB(25); CS; TAB(45), Icf * CS 
LPRINT TAB{3); 'ADMIN STAFF’; TAB<25); HYPS; TAB(45); lef * HYPS 
LPRrNT TAB(3), 'ENG STAFF'; TAB(25); PRVSI; TAB(45); Icf * PRVS1 
LPRINT 

TX - HYPS + PRVSI 

LPRINT TAB(5); 'TOTAU'; TAB(25); TX; TAB(45), Icf * TX 
I .PRINT 

LPRINT TAB(l); 'FACTLITTES'; TAB(25); wbsc(wbscc(38), 38); TAB(45); wbsc(4, 38) 

LPRINT TAB(l); 'COMMUNICATIONS'; TAB(25), wbsc(wbscc(39) , 39); TAB(45); wbsc(4, 39) 

LPRINT TAB(I); 'BASE OPERATIONS'; TAB(25); wbsc(wbscc(40), 40); TAB(45); wbsc(4, 40) 

LPRINT 

LPRINT TAB(3); 'TOTAL'; TAB(25); wbsc(wbscc(36), 36), TAB(45); wbsc(4, 36) 

LPRINT CHRS(12) 

END SUB 

SUB PRINTWBS 

ia - 1: ib = 42 

IE XP(6) - I THEN yr - year ELSE yr - XP(7) + XP(4) 
bk8d: 

I.PRTNT TAB(5); R TITLES; TAB(65); DATES 

LPRINT TAB(5); 'WBS COST SUMMARY FOR VNAMS; ' OVER A XP(4); ' YR SYSTEM LIFE’ 

rF XP(6) - 1 THEN LPRINT TAB(5); 'Life cycle coats are in constant'; year; 'dollan ' F.L5E LPRINT TAB(5); 'Life cycle coats are m then year,'; year; *co' ; year +■ XP<4), dollars 

I.PRTNT ”; TAB(2); 'WBS', TAB(38); 'Cost [M year'; year; *S]'; TAB(62); 'LCC cost': COLOR 14 
LPRINT 

FOR I - ia TO ib 


IF T - 4 OR I = 1 1 OR I ^ 23 OR I - 35 OR I - 40 OR I = 41 OR I - 42 THEN LPRINT 
LPRINT TAB(I); wbsS(l, I); TAB(30); , 

LPRINT USING ’9999.999 9999999999 .999' \ wbsc(wbscc(T), T); wbac(4, I) 

NEXT I 


LPRINT TAB(30); 'TOTAL 1 ; TAB(42); 

LPRINT USING ’999999 999 9999999 999.999’ \ told; Ictot 
LPRINT CHR$(12) 

END SUB 

SUB REPORT 
TOP; CLS 

PRINT : PRINT TAB(25); 'REPORT GENERATOR MENU': PRINT 
COLOR 11 

PRINT TAB(15); 'NBR'; TAB{35); 'SELECTION': PRINT 

PRINT TAB( 15); '1 PRINT INPUT DATA' 

PRINT TAB(15); '2 PRINT WBS SUMMARY REPORT' 

PRINT TAB( 15); '3 PRINT HYPER VELOCITY MODEL COSTS' 

PRINT TAB(15); '4 PRINT lOGTSTICS MODEL COSTS' 

PRINT TAB(I5); '5 PRINT ORG MANPOWER COSTS' 

PRINT TAB(15); '6 PRINT FACILITIES COST' 

PRINT TAB(15); '7 PRINT SYSTEM SUPPORT COST ' 

PRINT TAB<15); '8 PRINT RAD l A CQ COSTS-PREVAIL' 

PRINT TAB(15); '9 PRINT TOTAL OUTPUT' 


C-41 



PRINT TAB(15); ’lO PRINT TOTAL INPUT/OUTPUT' 

COLOR 3 

PRINT TAB(15); ’RETURN main menu’ 

COLOR 11 

LOCATE 22, 10: COLOR 13: PRINT ' VEHICLE/FILE NAME IS VNAMS 

COLOR 10: LOCATE 17, 20 INPUT ’ENTER SELECTION’; NDO 

IF NDO < - 0 OR NDO > 10 THEN EXIT SUB 

LOCATE 19, 20: INPUT ’ENTER TITLE OF REPORT’; RTITLES 

IF NDO - 1 THEN CALL ECHO 

IF NDO - 2 THEN CALL PRINTWBS 

rF NDO - 3 THEN CALL PRINTHYP 

IF NDO - 4 THEN CALL PRfNTLOG 

IF NDO - 5 THEN CALL PRINTMAN 

IF NDO - 6 THEN CALL PRINTFAC 

TE NDO - 7 THEN CALL PRINT5YS 

IF NDO - 8 THEN CALL PRINT ACQ 

IF NDO = 9 THEN GOSUB ALL 

IF NDO - 10 THEN GOSUB ALL 

GOTO TOP 

ALL: ’CALL ALL PRINT MODULES 

IF NDO - 10 THEN CALL ECHO 

CALL PRINTWBS 

CALL PRINTHYP 

CALL PRTNTLOG 

CALL PRINTMAN 

CALL PRINTFAC 

CALL PRINTSYS 

CALL PRTNTACQ 

RETURN 


END SUB 

SUB SPTC 
CLS : COIOR 14 

PRINT TAB(5); ’SYSTEM SUPPORT COSTS FOR VNAMJ; ’ OVER A’; XP(4 ); ’YR SYSTEM LIFE’ 

COLOR 3 

PRINT TAB(5); ’Note: Annual costs arc in millions of year"; year; ’dollars * 

IF XP(6) - 1 THEN PRINT TAB(5); ’Life cycle costs are in constant"; year; ’dollars * ELSE PRINT TAB(5); "Lifecycle costs are in then year,*; year; ‘to’, year f XP(4); *, dollars 

COI>OR 5: PRINT TAB(5); ’not included in support staff costs' 

PRINT : COLOR 15 

PRINT TAB(5); TAB{25); ’ANNUAL’, TAB(45); "IXX* 

PRINT TAB(3); ’CATEGORY"; TAB(25); ‘COSTS’; TAB(45); 'COSTS’ 

PRTNT 

PRINT TAB(I), ’SUPPORT STAFF" 

cotm 5 

PRINT TAB(3); ’AIRCREWS’; TAB(25); AC; TAB(45); lef * AC 
PRINT TAB(3); 'CMD STAFF’; TAB(25); CS; TAB<45); lef • CS 
COLOR 15 

PRINT TAB(3); ’ADMIN STAFF"; TAB(25); HYPS; TAB(45); Icf * HYPS 
PRINT TAB(3); 'ENG STAFF"; TAB(25); PRVSI; TAB(45); lef * PRVSI 
PRINT : COI£>R 14 
TX - HYPS + PRVSI 

PRINT TAB(5); 'TOTALS’; TAB(25); TX; TAB(45); Icf • TX 
PRINT : COLOR 15 

PRINT TAB(l); ’FACILITIES’; TAB(25); wtoc(wt>scc(37), 37); TAB(45); wbsc(4, 37) 

PRINT TAB(I); ’COMMUNICATIONS’; TAB<25); wbac(wbscc08), 38); TAB(45); wtwc<4, 38) 

PRTNT TAB(l); ’BASE OPERATIONS’; TAB{25); wbsc(wbacc(39), 39); TAB(45); wbsc(4, 39) 

’PRINT TAB<3); ’SECURITY’; TAB(25); SEC; TAB<45); Icf * SEC 

’PRINT TAB(3); 'SVC, SUPPLY, TRANS’, TAB(25); wbac(wbscc(39), 41) - SEC; TAB(45); Icf * (wbsc(wbacc(39), 39) - SEC) 

PRINT ; COLOR 14 

PRINT TAB(3); "TOTAL’, TAB(25); wbsc(wbscc(35), 35), TAB<45); wbsc(4. 35) 

PRINT ; COLOR 3 

INPUT "ENTER RETURN,.."; RET 

END SUB 


SUB SUMMARY 
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CLS : COLOR 2 

PRTNT TAB(5); 'COST SUMMARY FOR ’, VNAM$, ' OVFR A \ XP(4), * YR SYSTF.M LIFE* 

COLOR 3: PRINT 

PRINT TAB(5); 'Note: costs arc in millions of*; year; 'dollars* 

PRINT COLOR 13 

PRINT TAB(I), "CATEGORY*; TAB(15); ‘HARDWARE*, TAB(25); * SOFTWARE’, TAB(40), 'FACILITIES’, TAB(55); 'MANPOWER*; TAB(65); *MTSC* 
PRINT : COLOR 14 

PRINT TAB(I), 'DEVELOPMENT*; TAB(25); TDSC 
PRTNT TAB(l); "ACQUISITTON" ; TAB(40), tfcc 
PRINT TAB(l); *OPS A SUPPORT*, TAB<40); flee 
PRTNT TAB(l); ’PROG PHASEOUT*. TAB(15), TPC 
TCC - TDC 4 TAC \ TOC * TPC 
PRINT COLOR 1 2 

PRINT TAB(I); "TOTALS'; TAB(30); TCC, TAB(40), tfcc f fVc 
PRINT : COLOR 1 1 

PRINT TAB(I); ’TOTAL LIFE CYCLE COST’; TC 
COLOR 3 

LOCATE 22, 10: INPUT 'ENTER RETURN. . \ RET 
END SUB 
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